Кто знает командную строку отпишитесь

Нажми Win+R и введи cmd

Объяснение:

Это что то похожее на утилиту DOS но это не DOS а командная строка

Const n=20;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(90)+10;
 write(a[i],'  ');
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i] mod 2 = 0 then k:=k+1;
writeln('В массиве ',k,' четных чисел');
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
 if i mod 2 <> 0 then write(a[i],'  ');
end.

Пример:
Исходный массив:
55  40  42  16  52  12  46  58  75  72  39  51  54  64  83  20  77  37  52  23  
В массиве 12 четных чисел
Элементы с нечетными номерами:
55  42  52  46  75  39  54  83  77  52  

{ s(трапеции) = ((a+b)/2)*h; }
uses crt;
var
a, b, h: Integer; (Real)
s: Real;
begin
WriteLn('Введите а: ',a);ReadLn(a);
WriteLn('Введите b: ',b);ReadLn(b);
WriteLn('Введите h: ',h);ReadLn(h);
s:= ((a+b)/2)*h;
WriteLn('S = ', s);
ReadLn;
end.
Если же а и б должны быть обязательно меньше h, то:
if (a < h) and (b < h) then
begin
WriteLn('Введите а: ',a);ReadLn(a);
WriteLn('Введите b: ',b);ReadLn(b);
WriteLn('Введите h: ',h);ReadLn(h);
s:= ((a+b)/2)*h;
WriteLn('S = ', s);
ReadLn;
end;
else begin
WriteLn('Основания не меньше h!');
ReadLn;
end;