Дана программа: program primer; var a,result : real; begin writeln('введите значения переменной a'); write('a='); readln(a); result : = sqr((4+a)*10); writeln ('sqr((4+a)*10)', result: 8: 0); readln; end. запусти паскаль, введи данную программу, получи результат, если a=3. ответ: