турбо паскаль как писать программы

Ответ от Амплеич[гуру]
var a,b:integer;
begin
writeln('Введите в одной строке два целых числа и нажмите Enter');
readln a,b;
If (a <> b) then
If (a > b) then writeln (a+'больше'+b) else
writeln (a+'меньше'+b)
else writeln (a+'равно'+b);
end.

Ответ от Ёергей Басов[гуру]
мэйл, скотина комментарии урезает ((

вот так вот

program files;
var a,b integer;
begin
writeln('Введите числа');
readln(a,b);
if a>b then
writeln (a, 'больше', b);
if a

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]