На бесконечном поле имеется 2 пересекающиеся стены​

program xxx;

  var a, b, s, i : integer;

begin

  write('введите а-');

  readln (a);

  write('введите b-');

  readln (b);

  s: =0;   for i: = a to b do        s: =s + i * sqr(i);

    writeln ('сумма кубов =', s)

end.

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.

если первая дробь равна a/b, а вторая - c/d, то их сумма равна е = a/b + c/d = (a*d + c*b)/b*d (без последующего сокращения дроби е).

алгоритм:

1. ввести числа a,b,c,d.

2. рассчитать число е = (a*d + c*b)/b*d.

3. распечатать число е.

var i: integer;

s,v: real;

begin

  read(i,v);

  case i of

      1: s: =pi*v*v;

      2: s: =pi*v*v/4;

      3: s: =v*v/pi/4;

  end;

  writeln(s);

end.