1 ЗАДАЧА: var a,b,c,max:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
if a>b then max:=a
else
if b>c then max:=b
else max:=c;
writeln('Наибольшее число = ',max);
end.

2 ЗАДАЧА:

var a,b,c,y,x,min,max:integer;
begin
writeln('Введите первое число');
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;
begin
write(' введите заданное число ');
read(a);
if a mod 2 = 0
then b:= a / 4
else b:= a * 5;
write(' Полученный ответ = ', b:5:2);
end.

4 ЗАДАЧА:

var c:integer;
begin
readln(c);
if c>180 then writeln('ВЫСОКИЙ') else writeln('НЕ ОЧЕНЬ ВЫСОКИЙ');
end.

5 ЗАДАЧА:

var a: real;
begin
write ('Введите Вашу температуру: ');
read(a); //Вещественное число вводится через точку
if (a>=36) and (a<=37) then writeln ('ЗДОРОВЫЙ') else writeln ('БОЛЬНОЙ');
end.