На вход программе подаются три целых числа, программа сначала должна вывести минимальное из них, потом максимальное. Составить программу для Pascal ABC

ответ:var x, y, a, b, c: integer;

begin

read (a, b, c);

x:=a;

if (a<b) and (b<=c) then x:= a;

if (b<c) and (c<=a) then x:= b;

y:=a;

if (b>y) then y:= b;

if (c>y) then y:= c;

write (x,' ', y);

end.

Объяснение:я не уверен конечно но должно быть правильно