Определите способ записи представленного алгоритма "пополнить счет"

jrjkj rjkf_rjkjrjkf b yf rjkf[_rjkjrjkf

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

program chislo;

var x: integer;

          z,y : real;

begin

readln(x);

y: =5.5;

z: = x-y;

writeln(z);

end.

при запуске программы вводите эти значения и тестируете.

длину окружности

l=2*пи*r

r=√(х^2+х^2/2)

l=2*пи*√(х^2+х^2/2)

подставим х

при х=2.56789

l=19.7607=19.761

при х=345.678

l=2660.09556=2660.096