Написать программу по блок-схеме

[Aspol]

Написать программу по блок-схеме

Люди помогите. Надо написать на паскале программу по блок-схеме, я нуп в этом, так что не смейтесь)

 

[AlexZir]

var x:integer;
y:real;
begin
for x:=5 downto -5 do begin
if x<0 then y:=5/(2*x) else y:=sqr(x)+1;
writeln('x=';x:2,'; y=',y:2:6); end;
readln;
end.

 

[Aspol]

Благодарю)