Вычислить множество значений функции

Программа запускалась в PascalABC.NET

Объяснение:

const

 C = 3.2;

var

 y,M:real;

begin

 M:=0.1;

 while M <= 15.8 do

 begin

   y:=M+C;

   writeln('M = ',M,' Y = ',y);

   M:=M+0.2;

 end;

end.