<em>Наиболее знакомый вам пример словесных моделей – это информация в учебниках. В учебнике по истории вы найдете примеры моделей исторических событий...</em>
Неразрывный пробел Ctrl+Shift+пробел
перевод строки, пробел
Листинг программы и результат представлены ниже
Var a:integer;
begin
read(a);
if a>0 then a:= sqr(a)
else write('число отрицательное');
end.