Это правильно ? это информатика 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.

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.
Задача легкая, но блин, пришлось подумать...