Задания 2, 3, 4 , информатика, 7 класс

2)
var
  x, y, c: integer;
  r: real;
begin
  readln(x, y, c);
  r := (x+y)/(2*c);
  writeln(r);
end.

3)
var
  x: integer;
  r: real;
begin
  readln(x);
  r := abs(x) / 2;
  writeln(r);
end.

4)
var
  a: real;
  r: integer;
begin
  readln(a);
  r := sqr(trunc(a));
  writeln(r);
end.