Даны 2 числа А и В.Отыскать величайшее и наименьшее из их

работает?

Uses crt;
var
a,b:integer;
begin
textBackground(15);
textColor(1);
clrscr;
writeln('введите A ,B через пробел');
write('A=');readln(a);write('B=');readln(b);
if (agt;b) then begin
writeln('наивеличайшее A:',a);
writeln('меньшее B:',b);
end
else if (awriteln('величайшее B:',b);
writeln('наименьшее A:',a);
end
else if (a=b) then
writeln('A=B, A:',a,' B:',b);
end.