посчитайте пж, мне из блок схемы надо сделать программу ДАМ 30 поинтов

Кумир:

алг

|https://znanija. com/task/43136999

|(c) NaaMan

нач

вещ х, у

вывод "х = "

ввод х

если х > 0 то

у := sqrt(х)

иначе

у := х * х

все

вывод "у = ", у

кон

Pascal:

program test;

{znanija. com/task/43136999

(c) NaaMan}

var x,y : real;

begin

write( 'x = ');

readln(x);

if x > 0 then

y := sqrt(x)

else

y := x*x;

writeln('y = ',y)

end.