Var
a,b:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
if a=b then WriteLn(a,' = ',b)
else if a>b then WriteLn(a,' > ',b)
else WriteLn(a,' < ',b);
End.
Вам ответы нужны или что?
Ответ:
program znanija
var arr: array [1..30] of integer;
var i: integer;
begin
for i:=0 to 30 do
begin
readln (arr [i]);
end;
for i:=0 to 30 do
begin
if arr[i] > 10 then
begin
writeln (arr [i]);
end;
end;
end.
Или линк: https://pastebin.com/Jm5R4Ehp
Программа генерирует массив от 10 до 50. Потом выводит числа из этого массива кратные 10.