Program Primer;

Var

A,result : real;

Begin

Writeln('Введите значения переменной A');

Write('A=');

Readln(A);

Result := sqr((3+A)*5);

Writeln ('sqr((3+A)*5)', result:8:0);

Readln;

End.


Запусти Паскаль, введи данную программу, получи результат, если A=2.