Var
S:real;
N,i:integer;
Begin
Write('N = ');
ReadLn(N);
S:=1;
For i:= 1 to N do
S:=S+Sqr(i+N);
WriteLn('S = ',S);
End.
В самолете нет стоп-крана
Программа..............................................
Program n1;
const n=5;
var a: array [1..n] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do if (a[i]=7) then k:=k+1;
writeln('количество: ',k);
end.