Pascal ABCЗадания 11)Вывести на экран числа от 10 до 150 с

Задание 1

var a:integer;

begin

a:=10;

while alt;=150 do

begin

write (a,'  ');

a:=a+10

end;

writeln;

a:=200;

repeat

write (a,'  ');

a:=a-10

until alt;100

end.

Задание 2

var a,b:integer;

begin

readln(a,b);

if agt;b then write (a) else write (b)

end.

Задания 3

var a,b,c:integer;

begin

readln(a,b,c);

if (agt;b) and (agt;c) then write (a,'   ',b+c);

if (bgt;a) and (bgt;c) then write (b,'   ',a+c);

if (cgt;a) and (cgt;b) then write (c,'   ',a+b)

end.