program zadacha
var a, d, c: real;
begin
readln(a, b);
c := (a+b)2;
writeln(c);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Даны два числа a и b . Найти их среднее арифметическое : (a+b) /2 Язык Pascal
program zadacha
var a, d, c: real;
begin
readln(a, b);
c := (a+b)2;
writeln(c);
end.