ПАСКАЛЬ:Составить программу, которая вычисляет сумму и среднее арифметическое положительных чисел.
Var a,b:real;
begin
read (a,b);
writeln (a+b);
write ((a+b) / 2)
end.
через составной оператор Begin....end можно?