Question

Это правильно ?
это информатика 9 класс.
задача. среди 4 чисел найти максимум и минимум:
program zadacha;
var
a,b,c,d,max,min:real;
begin
writeln('vvedite kofficient a,b,c,d');
If a>b then max:=a else min:=b;
If c>d then max:=c else min:=d;
If a>c then max:=a else min:=c;
end.

Answer 1

USES crt;
var a,b,c,d:real;
BEGIN
clrscr;
readln(a,b,c,d);
if (a > b) and (b > c) then
writeln('Max = ',a,', Min = ',c);
if (b > a) and (a > c) then
writeln('Max = ',b,', Min = ',c);

if (a > c) and (c > b) then
writeln('Max = ',a,' Min = ',b);
if (c > a) and (a > b) then
writeln('Max = ',c,', Min = ',b);
if (b > c) and (c > a) then
writeln('Max = ',b,', Min = ',a);
if (b > d) and (d > b) then
writeln('Max = ',b,', Min = ',b);
if (d > b) and (d > b) then
writeln('Max = ',d,', Min = ',a);
readln;
END.
Задача легкая, но блин, пришлось подумать...