записать SQL-за Нужен только синтаксис

1. Сформировать список пассажиров, которые летят на рейсе N.

2. Получить список рейсов, выполненных в январе 2017года

3. Получить список рейсов всех компаний, сгруппированных по названию компании.

4. Какие компании осуществляют полеты в город Владивосток.

5. Какие рейсы были совершены из Москвы в Самару 24.01.2017

6. Выдать список пассажиров с одинаковыми именами.

7. Какие типы самолетов используются в компании «Аэрофлот»

8. Получить список пассажиров прибывших в Москву 10.02.2017

9. Кто из пассажиров занимал 10 ряд на рейсе 781

10. Определить рейс с минимальным временем полета.

50зн=50байт

60зн=60байт

1кбайт= 1024байта

1мб=1024кбайта

=> 1мбайт=(1024*1024)байт

1мбайт=1048576 байт

50байт/1048576байт=0,0000476837мбайт

60байт/1048576байт=0,0000572205мбайт 

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

var

d1,d2,d3,d4: string;

begin

randomize;

readln(d1);

readln(d2);

readln(d3);

readln(d4);

case random(4) of

0: writeln(d1,d2,d3);

1: writeln(d1,d2,d4);

2: writeln(d2,d3,d4);

3: writeln(d1,d3,d4);

end;

end.