1.
var a,b,res:real;
begin
write('a=');readln(a);
write('b=');readln(b);
res:=a+b;
writeln('Сумма = ',res);
res:=a-b;
writeln('Разность = ',res);
res:=a*b;
writeln('Произведение = ',res);
res:=a/b;
writeln('Частное = ',res);
end.
2.
var a,b,c,sred:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
sred:=(a+b+c)/3;
writeln('Среднеарифметическое = ',sred);
end.