Var a:integer;
d:string;
f:char;
begin
writeln('введите сторку');
readln(d);
for a:=1 to length(d) do begin
f:=d[a];
write(f);
write(' ');
end;
<span>end.</span>
Var
chisl, znam, multi: real;
begin
multi := 1;
chisl := 1;
znam := 2;
for var k := 1 to 9 do
begin
multi *= chisl / znam;
chisl += 1;
znam += 1;
end;
write(multi);
end.
выполняет арифметические операции, выполняет лог. операции, управляет ... обрабатывает ....
Автор, как "создатель", имеет полные права на своё творение: копировать, распространять, использовать, изменять, удалять и т.д.
program HelloWorld;
var k:integer;
begin
writeln('Введи сторону');
readln(k);
writeln(k*k)
end.