var
a,b : Integer;
begin
Write('Введите числа: ');
ReadLn(a, b);
if a = b then
Writeln('Числа равны')
else
if a > b then
WriteLn('Число ', a, ' больше ', b)
Writeln('Число ', a, ' меньше ', b);
end.
На языке КуМир
алг дз
нач
цел a, b, c
вывод 'Введите первое число: '
ввод a
вывод 'Введите второе число: '
ввод b
если a = b то
вывод 'Число ', a, ' равно числу ', b
все
если a > b то
вывод 'Число ', a, ' больше числа ', b
всё
если a < b то
вывод 'Число ', a, ' меньше числа ', b
кон
var
a,b : Integer;
begin
Write('Введите числа: ');
ReadLn(a, b);
if a = b then
Writeln('Числа равны')
else
if a > b then
WriteLn('Число ', a, ' больше ', b)
else
Writeln('Число ', a, ' меньше ', b);
end.
На языке КуМир
алг дз
нач
цел a, b, c
вывод 'Введите первое число: '
ввод a
вывод 'Введите второе число: '
ввод b
если a = b то
вывод 'Число ', a, ' равно числу ', b
все
если a > b то
вывод 'Число ', a, ' больше числа ', b
всё
если a < b то
вывод 'Число ', a, ' меньше числа ', b
все
кон