Var
num: real;
begin
write('Введите сторону квадрата: ');
read(num);
writeln;
writeln('Периметр квадрата (P): ', num * 4);
writeln('Площадь квадрата (S): ', sqr(num));
end.
Артефакт, инстинкт, антрацит, оригинал.<span>Правило шифрования - слова написаны справа налево, т.е. наоборот.</span>
Program rast;
var x, y, l: real;
begin
writeln('введите две координаты');
readln(x, y);
l:=sqrt(sqr(x)+sqr(y));
writeln('расстояние ', l:3:2);
end.
PROGRAM Z13;
const n=6; m=7;
var a: array[1..n, 1..m] of integer;
i,j,k:integer;
begin
k:=2;
for j:=1 to m do
begin
for i:=1 to n do a[i,j]:=k;
k:=k+3;
end;
for j:=1 to m do
begin
for i:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.<span>
</span>