язык Кумир. Написать программу, которая вычисляет значение функции на интервале

[Scanty]

Написать программу, которая вычисляет значение функции y=|x-1| + 0,5 на интервале (-5; 15) с шагом 1

На паскале выглядит так:

var x : real;
begin
x := -5;
while x<=15 do begin
WriteLn('x= ',x:0:0,' y= ', (abs(x-1)+0.5):0:1);
x := x + 1
end;
Readln
end.

[ZX Spectrum-128]

http://www.niisi.ru/kumir/books.htm