Сделайте как можно быстрее , оченб надо,

Объяснение:

1.

program Num1;

begin

writeln( 'Bася' );

writeln( 'пошёл':9 );

writeln( 'гулять':15 );

writeln;

writeln('Ж':5);

writeln('ЖЖЖ':6);

writeln('ЖЖЖЖЖ':7);

writeln('ЖЖЖЖЖЖЖ':8);

writeln('HH HH':7);

writeln('':7);

end.

2(по отдельности):

program Num2;

begin

 writeln( 'Bася' );

 writeln( 'пошёл':9 );

 writeln( 'гулять':15 );

end.

3.(по отдельности):

program Num3;

begin

writeln('Ж':5);

writeln('ЖЖЖ':6);

writeln('ЖЖЖЖЖ':7);

writeln('ЖЖЖЖЖЖЖ':8);

writeln('HH HH':7);

writeln('':7);

end.