Даны 2 числа А и В.Найти наибольшее и наименьшее из них и вывести **...

Question

Даны 2 числа А и В.Найти наибольшее и наименьшее из них и вывести на экран.Паскаль.Помогите пожалуйста

Comments

работает?

Answer 1

Uses crt;
var
a,b:integer;
begin
textBackground(15);
textColor(1);
clrscr;
writeln('введите A ,B через пробел');
write('A=');readln(a);write('B=');readln(b);
if (a>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.