code_olymp/Pascal/24.10.16/Program3.pas

var x, y: real; begin x := -5; while x <= 5 do begin y := 5 - (Sqr(x) / 2); writeln(x, ' ', y); x := x + 0.5; end; end.