Задача 1: Вводится три числа нужно найти максимальное (max) и минимальное (min) число.
Задача 2: Вводится три числа нужно найти максимальное (max).
Задача 3: Вводится три числа нужно найти минимальное (min).

Задача 1: Вводится три числа нужно найти максимальное (max) и минимальное (min) число.

program Maximin;
var a,b,c,d,e:real;
begin read (a,b,c);
d:=a;
if d<b then d:=b;
if d<c then d:=c;
e:=a;
if e>b then e:=b;
if e>c then e:=c;
writeln ('Максимальное число:',d);
write ('Минимальное число:',e);
end.

Задача 2: Вводится три числа нужно найти максимальное (max).

program Max;
var a,b,c,d:real;
begin read (a,b,c);
d:=a;
if d<b then d:=b;
if d<c then d:=c;
writeln ('Максимальное число:',d);
end.

Задача 3: Вводится три числа нужно найти минимальное (min).

program Min;
var a,b,c,e:real;
begin read (a,b,c);
e:=a;
if e>b then e:=b;
if e>c then e:=c;
write ('Минимальное число:',e);
end.