Напишите программку на Pascal.Нужно ввести число (любое) и обязано выдавать, что

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var x := ReadReal;

 if x lt; 10 then Print('Число меньше 10')

 else

   if x = 10 then Print('Число равно 10')

   else Print('Число больше 10')

end.

Program AddNums(output);

var x:integer;

begin

   readln(x);

   x:=x-10;

   if xlt;gt;0 then

   if xgt;0 then

     writeln('bolshe 10')

   else writeln('menshe 10')

   else writeln('ravno 10')

end.