Кто объяснит каждую строчку

var
n,i,e:integer;
s,d:string;
begin
Write('s:');
Readln (s);
Write('n:');
Readln (n);
d:=s[1];
for i:=2 to Length(S) do
begin
for e:=1 to N do d:=d+'*';
d:=d+s[i];
end;
Writeln(d);
end.​

Metalgitarist23    1   19.02.2020 18:41    1