Вывести на экран таблицу пересчета ярдов в метры(от 1 ярда до 40 с шагом 10 ярдов).1 ярд=0,91440м.

Ответы:

yard:= 0,91440,

yard1:=1,

metr:=1,

kolvo:=0,

while yard1&lt,40 do

begin

kolov:=kolvo+(yard1*metr),

metr:=metr+1,

yard1:=yard1+1,

end,