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 b<a then min:=b;
if c<b then min:=c;
if d<c then min:=d;
writeln('Большее из чисел = ',max);
writeln('Меньшее из чисел = ',min)
END.
Писал на скорую руку, но вроде всё правильно.