Прошу дано предложение, оканчивающееся символом "_".вставить заданную букву перед последней буквой "и".

Var s: string; c: char; i,k,n: integer; begin readln(s); readln(c); n: =length(s); for i: =n downto 1 do if s[i]: ='и' then begin k: =i; break; end; for i: =n+1 to downto k do s[i]: =s[i-1]; s[k]: =c; writeln(s); end.

var

i,n: integer;

begin

read(n);

for i: =0 to 3 do

writeln (4*n-i);

end.