program meister;
var a,b:integer;
begin
writeln('Введите a: ');
readln(a);
writeln('Введите b: ');
readln(b);
if a< b then writeln("больше число a")
else writeln("больше число b");
end.
Пример работы:
program meister;
var a,b:integer;
begin
writeln('Введите a: ');
readln(a);
writeln('Введите b: ');
readln(b);
if a< b then writeln("больше число a")
else writeln("больше число b");
end.
Пример работы: