даю 35 баллов!!!!!!!СРОЧНО ​

1)

program first;

var a, b: real;

begin

   readln(a, b);

   write(a+b);

end.

2)

program second;

var a, b, c: integer;

begin

   readln(a, b, c);

   writeln(a+b+c, a*b*c);

end.

3)

program third;

var a: real;

begin

   read(a);

   write('Объем равен', a*a*a, ', площадь поверхности равна', 6*a*a )

end.