program CompareToTen;
varnumber: integer;
beginWrite('Введите число: ');Readln(number);
if number = 10 thenWriteLn('Число равно 10')elseif number < 10 thenWriteLn('Число меньше 10')elseWriteLn('Число больше 10');
ReadLn;end.
program CompareToTen;
var
number: integer;
begin
Write('Введите число: ');
Readln(number);
if number = 10 then
WriteLn('Число равно 10')
else
if number < 10 then
WriteLn('Число меньше 10')
else
WriteLn('Число больше 10');
ReadLn;
end.