Var x,y:real;
begin
x:=1;
writeln(X:2,Y:6);
while x<=20 do
begin
y:=5*x-2;
writeln(x:3:1,y:6:1);
x:=x+0.5
end
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.