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

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