Program up1;
var q:integer;
begin
writeln('введите число');
read(q);
if q>0 then write('число больше 0') else write('число меньше 0');
end.
Вот 2 презентации и сам доклад
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.Reverse.Println
end.
<u>Пример</u>
рука
акур