Var a,b:integer; begin writeln('Введите a'); readln(a); writeln('Введите b'); readln(b); if a>b then writeln('a>b') else if a<b then writeln('a<b') else writeln('a=b'); end.
Var arr: array[1..100] of real; n: integer; sum, op: real; i: integer; begin write('vvedite n '); readln(n); for i : = 1 to n do begin write('vvtdite ',i,'-oe chislo '); readln(arr[i]); end; sum : = 0; for i : = 1 to n do sum : = sum + arr[i]; writeln('summa= ', sum); end.
a,b:integer;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
if a>b then
writeln('a>b')
else
if a<b then
writeln('a<b')
else
writeln('a=b');
end.