Задание №1var a,b,c:integer;beginwriteln (\'Введите два числа\');readln (a,b);if (a mod 2)=0 thenc:=a*belse c:=a+b;writeln(c);readln;end.Задание №2var x, y: integer;beginwrite (\'x = \');readln (x);if x > 3 theny := x*x + 5elseif x <=3 theny := x-8elsey := abs (x);writeln (\'y = \', y);readlnend.Задание №3var a,b,c,max:integer;beginread(a,b,c);if a > b then max:=aelsemax:=b;if max > c then write(max)elsewrite(c);end.ИЛИ var a,b,c:integer;beginread(a,b,c);if (a > b) and (a > c) then write(a)elseif (b > a) and (b > c) then write(b)elsewrite(c);end.