1 Задание:var a,b,c,max:integer;beginwriteln('Введите 3 целых числа');readln(a,b,c);if a>b then max:=aelseif b>c then max:=belse max:=c;writeln('Наибольшее число = ',max);end. 2 Задание:var a,b,c,y,x,min,max:integer;beginwriteln('Введите первое число');readln(a);writeln('Введите второе число');readln(b);writeln('Введите третье число');readln(c);writeln('Введите четвертое число');readln(x);writeln('Введите пятое число');readln(y);if a > b then max :=a else max :=b;if max < c then max:=c;if max < y then max:=y;if max < x then max:=x;writeln('Максимальное число = ',max);end. 3 Задание:var a:integer;b:real;beginwrite(' введите заданное число '); read(a);if a mod 2 = 0 then b:= a / 4 else b:= a * 5; write(' Полученный ответ = ', b:5:2); end. 4 Задание:var c:integer;beginreadln(c);if c>180 then writeln('ВЫСОКИЙ') else writeln('НЕ ОЧЕНЬ ВЫСОКИЙ');end. 5 Задание:var a: real;beginwrite ('Введите Вашу температуру: ');read(a); //Вещественное число вводится через точкуif (a>=36) and (a<=37) then writeln ('ЗДОРОВЫЙ') else writeln ('БОЛЬНОЙ');end.