Составить таблицу перевода метров в ярды если 1м=0,91 ярды на [1;20]
В ПАСКАЛЕ,ну программой записать

var i:integer;begin  write('|МЕТРЫ|');  for i:=1 to 20 do  write(i:6,'|');  writeln;  write('|ЯРДЫ |');  for i:=1 to 20 do  write(i*0.91:6,'|');  writeln;end.