Определите результат логических функций И (3>5, 15/2-4>3) или (99-27*3=5 : 78/2-39>=-1

мало данных для главное - размер пробоины и размер листа

var i: integer;

s,z: real;

begin

    z: =8;

    for i: = 2 to 7 do begin

          s: =s+z;

          z: = z*(1+10/100);

    end;

    writeln(s);

end.

program symma;

  var a,b;

begin

  writeln('введите a'); readln (a);

    writeln('введите b'); readln (b);

  writeln(a+b);

  readln; {задержка, чтобы не убегала с экрана}

end.

можно взять еще одну переменную "с".

program symma1;

  var a,b,c;

begin

  writeln('введите a'); readln (a);

    writeln('введите b'); readln (b);

    c: =a+b;

  writeln(c);

  readln; {задержка, чтобы не убегала с экрана}

end.

удачи!

var a,n,s: integer;

begin

  s: =1;

  n: =1;

  while n< =100 do begin

    readln(a);

    if a mod 3 =0 then s: =s*a;

    n: =n+1;

                          end;

  writeln(s);

end.

  вроде так

если что не так, исправлю