Question

Помогите решить плиз...

Answer 1

//PascalABC.Net 3.2.0.1467
const
    y0 = 1.5;
    dy = 0.5;
    yk = 4;

begin
    var y := y0;
    repeat
        Writeln('z(', y, ') = ', 4 * (1 - y * y));
        y := y + dy;
    until y > yk;
end.