Question

Задаются два разных по величине числа. Записать алгоритм определения, какое из этих чисел больше.

Answer 1

Var a,b,c:integer;
begin
write(' введите два различных числа');
read(a,b);
if a>b then c:=a else c:=b;
writeln('большее число =', c);
end.