===== PascalABC.NET =====
begin
foreach var n in Range(100, 999) do
if n mod 81 = 0 then
Print(n)
end.
program slovo;
var s: string; i: integer;
Begin
writeln('введите слово'); readln(s);
for i:=length(s) downto 1do begin
write(s[i]);
end;
End.
{Pascal}
var
a:array[1..100] of integer;
b:array[1..100] of integer;
c:array[1..200] of integer;
i, n, m: integer;
begin
write('Размер массива A: ');
readln(n);
write('Размер массива B: ');
readln(m);
writeln('Массив A:');
for i:=1 to n do begin
write('A[',i,'] = ');
readln(a[i]);
end;
writeln('Массив B:');
for i:=1 to n do begin
write('B[',i,'] = ');
readln(b[i]);
end;
for i:=1 to n do
c[i]:=a[i];
for i:=n+1 to n+m do
c[i]:=b[i-n];
writeln('Массив C:');
for i:=1 to n+m do
write(c[i]:4);
end.
<span>import math as m
a =int(input('a='))
P = a**<span>2
</span>print("Периметр квадрата = ",P)
r = int(input("r = "))
print("Периметр круга = ",round(2*m.pi*r,4))</span>