label 10,20;
var x,y:real;
begin
readln(x);
if x<0 then goto 10 else y:=sqrt(x);
goto 20;
10: y:=sqr(x);
20: writeln(y:2:1);
end.
Создайте Ваш сайт учителя Курсы ПК и ППК Видеоуроки Олимпиады Вебинары для учителей
label 10,20;
var x,y:real;
begin
readln(x);
if x<0 then goto 10 else y:=sqrt(x);
goto 20;
10: y:=sqr(x);
20: writeln(y:2:1);
end.
* Свидетельство о публикации выдается БЕСПЛАТНО, СРАЗУ же после добавления Вами Вашей работы на сайт