Напишите программу, которая выбирает максимальное и минимальное из трёх введённых чисел. Pascal

Vara,b,c,max,min:integer;BeginReadln(a,b,c);if (a>b) and (a>c) then max:=a;if (b>a) and (b>c) then max:=b;if (c>a) and (c>b) then max:=c;if (a<b) and (a<c) then min:=a;if (b<a) and (b<c) then min:=b;if (c<a) and (c<b) then min:=c;Writeln('Максимальное значение - ', max, 'Минимальное - ', min);end.

PascalABC.Netprogram MyProg;var  max_a, max1, min_a, min1, a, b, c: longint;begin  writeln('Введите три числа');  readln(a, b, c);  min1 := min(a, b);  min_a := min(min1, c);  max1 := max(a, b);  max_a := max(max1, c);  writeln('Максимальное число ', max_a);  writeln('Минимальное число ', min_a);end.