Question

Даны два числа, отличных друг от друга. найти большее число. вводные данные: а и b- два числа, где а< > b. выходные данные: значение большего числа.

Answer 1

Var a,b integer;
Begin
Writeln(‘Введите числа а и b’);
Readln(a,b);
If a > b then
Writeln(a, ‘ больше чем ‘, b)
Else
Writeln(b, ‘ больше чем ‘, a)
End.

Answer 2

program dvachisla;

var a,b:integer;

begin

write('vvedite chislo a');

read (a);

write ('vvedite chislo b');

read (b);

if a>b then write ('a bolshe b')  

else write ('b bolshe a');

end.