Вкняыкецые ЙКуе это правильный ответ
Ответ в файле, построен график
Program n1;
Var E, a: Real;
N, i: Integer;
Begin
Write('N='); ReadLn(N);
E:=1;
For i:=1 To N Do
Begin a:=a/i;
E:=E+a
End;
WriteLn('E=', E)
End.
Program First;
var
a, b, c, d, m, n: integer;
begin
a:= 5;
b:= 9;
c:=7;
d:=13;
m:= a*d;
n:=b*c;
writeln(m, n);
end.