Дано натуральное число n. выяснить, имеются ли среди чисел n, n+1, 2n близнецы, т. е. простые числа, разность между которыми равна. определить процедуру, позволяющую распознать простые числа. написал программу, но она не выполняется, исправить ошибку program ex2; var n: integer; function p(n: integer): boolean; var count, k : integer; begin count: =0; k: =2; while (k*k< =n) and (count=0) do begin if n mod k=0 then count: =count+1; k: =k+1 end; p: =(count=0) end; begin read(n); while p(n) do begin writeln('простое число'); read(n); if p(n)- p(n+1)=2 then writeln('близнецы'); end; end.

Var       n, i, prev: integer; function issimplenumber(n: integer): boolean; var       i: integer; begin       issimplenumber : = true;             for i : = 2 to round(sqrt(n) + 1) do               if n mod i = 0 then begin                       issimplenumber : = false;                       exit;               end; end; begin       read(n);       prev : = 0;             for i : = n to 2 * n do               if issimplenumber(i) then                       if prev = 0 then                               prev : = i                       else if i - prev = 2 then begin                               writeln(i, ', ', prev, ' - близнецы');                               halt;                       end                       else prev : = i;             writeln('близнецов нет'); end.

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

в1+в2=5

(в1+в2+в3)/3=3

(5+в3)/3=3

5+в3=9

в3=4