Программа по паскалю СРОЧНО!!!

Question

Программа по паскалю СРОЧНО!!!

---

Answer 1

Var i,n:integer;
begin

for i:=1 to 5 do begin
n:=n*10+5;
writeln(K);
end;

n:=11111;
for i:=1 to 5 do begin
writeln(n);
n:=n div 10;
end;