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

program z1;

  label 1;

  var s,k: real;

    begin

      s:=0;

      1:if slt;=1 then begin

                       k:=sqr(s);

                       writeln(k);

                       s:=s+0.2;

                       goto 1;

                       end

                    else end.