Максимальный напишите верно,3. запустите интегрированную среду программирования. составьте программный код для : «дан радиус круга r=2, определите диаметр окружности».

var

    r : real;

    d : real;

begin

    write('введите радиус окружности r=');

    readln(r);

    d : = 2*r;

    writeln('диаметр равен d=2r=', d);

end.

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

нельзя, ведь текст отсканирован а не скопирован!