var a,res:integer;
begin
writeln('Введите число');
readln(a);
res:=sqr(a);
writeln('Квадрат числа,'a', равен,'res',');
readln;
end.
Выделение и deleted вроде
<span>ЮЯЧЬЯБУ <span>ПРИНТЕР
Смещение букв в алфавите на 18 букв (</span></span><span>ROT18</span>)
87:6=14, 3 остаток.
14:6=2, остатрк 2.
2:6=0, остаток 2.
87(10)=223(6)