Помогите с программированием, работа с паскаль abc

var  a,k: real; begin while k<15 do begin  k:=k+1;  a:=(64-(k*4))/2;  writeln(k,' ',a); end;    end.