народ, можете проверить задачу, мне просто качать прогу не очень, короче хотелось бы что бы на проге Geany

Вот задача: Даны 3 числа вывести наибольшее и наименьшее

var a,b,c,min,max:integer;

begin

writeln('Введите три числа:');

readln(a,b,c);

max:=a;

if b>max then max:=b;

if c>max then max:=c;

min:=a;

if b
if c
writeln('Минимальное: ',min);

writeln('Максимальное: ',max);

end.