Var a:real;
begin a:=2;
while a<2.8 do begin
a:=a+0.1;
writeln(a);
end;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.