program RED;
Var
a:integer ;
begin
writeln ('Ж');
writeln ('ЖЖЖ');
writeln ('ЖЖЖЖЖ');
writeln ('ЖЖЖЖЖЖЖ');
writeln ('HH HH');
writeln ('');
end.
Объяснение:
program RED;
Var
a:integer ;
begin
writeln ('Ж');
writeln ('ЖЖЖ');
writeln ('ЖЖЖЖЖ');
writeln ('ЖЖЖЖЖЖЖ');
writeln ('HH HH');
writeln ('');
end.
Объяснение: