Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. Предусмотреть вывод...

Question

Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. Предусмотреть вывод данных на дисплей. В Pascal ABC

Answer 1

PROGRAM max_and_min;
vara,b,c,d,max,min:integer;
BEGIN
writeln('Введите 4 целых числа через пробел или Enter -> ');
readln(a,b,c,d);
if (a>b) then max:=a else max:=b;
if (c>max) then max:=c;
if (d>max) then max:=d;
min:=a;
if bif cif dwriteln('Большее из чисел = ',max);
writeln('Меньшее из чисел = ',min)
END.
Писал на скорую руку, но вроде всё правильно.