Дана программа: Program Primer;
Var
M,result : real;
Begin
Writeln('Введите значения переменной M');
Write('M=');
Readln(M);
Result := sqr((9+M)*10);
Writeln (result:8:0);
Readln;
End.
Запусти Паскаль, введи данную программу, получи результат, если M=1.
(В окошко для ответа запиши только числовое значение!)
Программа выведет: 10000
result =![((9+1)*10)^{2} = 10000](/tpl/images/4187/5844/e99c1.png)