Дана программа:


Program Primer;

Var

A,result : real;

Begin

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

Write('A=');

Readln(A);

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

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

Readln;

End.


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

Ответ:

У меня нет Паскаля, да и не та система, чтобы установить его, а онлайн не работают, можно помочь прошу!