program Pozdrav;
const Opak = 10;  {počet opakování}
var I : Integer;
begin
 for I := 1 to Opak do
  Writeln ( 'Dobrý den.' );
end.