var
n:real;
begin
readln (n);
n:=n*sqrt (2);
writeln (n);
end.
<span>Вместо значков импликации порядок действий.
Сначала выполняются действия 1, порядок выполнения не важен,
затем действия 2, затем действие 3.
(A 2 (B 1 C)) 3 ((A 1 B) 2 (A 1 C))</span>
Возможно артна, но я не уверен
Var a,b,c:real;
begin
writeln('введите два числа');readln(a,b);
c:=a+b;
writeln('сумма=',c);
end.