Шаблон

 var i, pr :integer;

pr:=1;
pr:=0;
for i:=1 to 100 do if i mod 2 = 1 then

if ( a mod 2 = 0 )  and  ( a mod 34 = 0   )

for i:=1 to 100 do if i mod 2 = 01 then

 pr:=pr+i;

writeln('сумма = ',pr);
end.

begin

var a, b, c :real;

read(a, b);

read(c);

   y :real ;

for  x:= 2 to 17 do  begin   end ;

  Y:=(X+2*X)/7;

  writeln('x = ',x, 'y = ',y);

                  

  end.