1)
var i, x: integer;
begin
for i:=1 to 9 do
begin
x:=i*100+13;
write(x: 4)
end
end.
2)
var i, x: integer;
begin
for i:=1 to 9 do
begin
x:=i*100+42;
write(x: 4)
end
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.