"Всегда следует продумывать План схему решение задачи
думаю так.
var i,n:integer; p:real;
begin
cls;
write('write n '); readln(n);
for i:=2 to n do
begin
p:=p+(1-(1/sqr(i)));
end;
writeln(p);
readln;
end.
Program n1;
var a,k: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a>9) and (a<100) and (a mod 5=0)
then k:=k+1;
readln(a);
end;
write(k);
end.
var
str: <em>string</em>;
arr: <em>array of string</em>;
begin
readln(str);
arr := str.Split(' ');
writeln(String.Join('', arr));
<span>end.</span>