Pascal abc #11)вывести на экран числа от 10 до 150 с шагом 10.2)вывести на экран числа от 100 до 200 с шагом 10 в обратном порядке. #21)даны два числа. выведите большее из них на экран. #31)даны 3 числа. выведите большее из них и сумму оставшихся двух чисел на экран.

Задание #1

var a:integer;

begin

a:=10;

while a<=150 do

begin

write (a,'  ');

a:=a+10

end;

writeln;

a:=200;

repeat

write (a,'  ');

a:=a-10

until a<100

end.

Задание #2

var a,b:integer;

begin

readln(a,b);

if a>b then write (a) else write (b)

end.

Задания #3

var a,b,c:integer;

begin

readln(a,b,c);

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

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

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

end.