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

Question

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

---

Answer 1

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