Составьте программы в packal abc для следующих : 1)с клавиатуры вводится три вещественных числа. найти целую часть от суммы этих вещественных чисел. 2)с клавиатуры вводится целое число. найди дробную часть от деления целого числа на n 3)с клавиатуры вводится четыре вещественных числа. найти сумму этих вещественных чисел и округлить ее.

1)
Program n1;
var a,b,c: real;
sum: integer;
begin
readln(a,b,c);
sum:=trunc(a+b+c);
writeln(sum);
end.
2)
Program n2;
var a,n: integer;
x: real;
begin
readln(a,n);
x:=frac(a/n);
writeln(x)
end.
3)
Program n3;
var a,b,c,d: real;
sum: integer;
begin
readln(a,b,c,d);
sum:=round(a+b+c+d);
writeln(sum);
end.