Var a, b, z :longint;
Begin
WriteLn('Введите два числа','a','b');
ReadLn(a); readln(b);
z:=sqrt(a-b);
WriteLn('Корень квадратный из числа равен.',z);
end.
Объяснение:
