Дана блок-схема. составить программный код​

program z1;

  label 1;

  var s,k: real;

    begin

      s:=0;

      1:if s<=1 then begin

                       k:=sqr(s);

                       writeln(k);

                       s:=s+0.2;

                       goto 1;

                       end

                    else end.