Нарисовать три вертикальных квадрата 3 × 3 с символа «*». (программа Паскаль)

program RISUNOK;
procedure KVADRAT;
begin
writeln ('***');
writeln ('*  *');
writeln ('***');
end;
begin
clrscr; KVADRAT;
writeln; KVADRAT;
writeln; KVADRAT;
end.