Var
a,n,d:integer;
Begin
d:=2;
write(Введите число n );
Readln(n);
while a Begin
write(d, );
d:=d+2;
a:=a+1;
End;
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.