Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end.
Практики не было давно.
...................................................
Var st: string;begin write('строка: '); readln(st); repeat delete(st,1,1); writeln(st); until length(st)<2;end.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var b := Arr(2, 1, 3, 5, 4, 9, 7, 8, 12, 10);
b.Sum.Println
end.
<h2>61 </h2>