Ответ: Var i:byte;Begin  for i:=10 to 25 do  begin    write(i,’ ‘);    writeln(i,’.4′);  end;End.