Решить 8 через, while

Question

Решить 8 через, while

---

Answer 1

var a: integer;

begin

a := 5;

while a <= 50 do</p>

begin

writeln(a:2,' фунтов = ', a*0.453,' кг');

a := a + 5

end

end.