Задания 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.