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

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