Подставляешь вместо x 3 умножаешь и получается
y=3*3-(6+1);
y=9-7;
y=2
Ответ :2
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
var x,y:real;
Write('Введите координаты точки: '); Read(x,y);
var rho:=sqrt(x*x+y*y);
var fi:=arctan(y/x);
Writeln('Радиус: ',rho,', угол(рад): ',fi)
end.
Пример:
Введите координаты точки: 3 -2.7
Радиус: 4.03608721412211, угол(рад): -0.732815101786507
Автоматический (через заданное количество времени), и по щелчку
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 0).Sum.Print
end.
1 группа лишнее Home
2 группа лишнее F1
3 группа лишнее F12
4 группа лишнее *
Думаю так.