Var x: real;
begin
read(x);
if (x>=0) then begin
x:=sqrt(x);
writeln(x)
end
else writeln('No'); // Здесь вроде как No, потому что комплексное число в паскале можно составлять исключительно через строки, не думаю, что потребуется.
readln()
end.
3 + 2*8 + 1*8^2 = 3 + 16 + 64 = 83
Информатика(ответ)- роикатфмаин(ребус) и ставишь цифры над буквами ребуса это так: р5, о4, и1, к10, а11, т8, ф3, м6, а 7, и9, н2 (цифры ставятся сверху)