Program sravnenie; var a,b:integer; begin writeln('Введите первое число'); readln(a); writeln ('Введите второе число'); readln(b); if a>b then writeln('первое введенное число больше') else writeln ('второе введенное число больше'); end.
Не ручаюсь за правильную расстановку точек с запяток, ибо давно на паскале не писал) Проверьте через среду разработки.
var a,b:integer;
begin
writeln('Введите первое число');
readln(a);
writeln ('Введите второе число');
readln(b);
if a>b then writeln('первое введенное число больше')
else
writeln ('второе введенное число больше');
end.
Не ручаюсь за правильную расстановку точек с запяток, ибо давно на паскале не писал) Проверьте через среду разработки.