// PascalABC.Net var a,b:integer; begin Write('Введите через пробел числа а и b: '); Read(a,b); if a=b then Writeln('Числа равны') else if a>b then Writeln(a,'>',b) else Writeln(a,'<',b) end.
program WhatAreMoreHere; var a,b:integer; begin writeln(); writeln(' Введите первое число: '); readln(a); writeln(); writeln(' Введите второе число: '); readln(b); if (a=b) then writeln(' Число ', a, ' = ', b, '.'); if (a>b) then writeln(' Число ', a, ' больше чем число ', b, '.'); if (b>a) then writeln(' Число ', b, ' больше чем число ', a, '.'); end.
var
a,b:integer;
begin
Write('Введите через пробел числа а и b: '); Read(a,b);
if a=b then Writeln('Числа равны')
else
if a>b then Writeln(a,'>',b)
else Writeln(a,'<',b)
end.
Всё довольно просто, держи:
program WhatAreMoreHere; var a,b:integer; begin writeln(); writeln(' Введите первое число: '); readln(a); writeln(); writeln(' Введите второе число: '); readln(b); if (a=b) then writeln(' Число ', a, ' = ', b, '.'); if (a>b) then writeln(' Число ', a, ' больше чем число ', b, '.'); if (b>a) then writeln(' Число ', b, ' больше чем число ', a, '.'); end.