Question

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

Answer 1

var a: integer;

begin

a := 5;

while a <= 50 do

begin

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

a := a + 5

end

end.