fork download
  1. program ideone;
  2. var
  3. i : integer;
  4. begin
  5. for i:=1 to 3 do
  6. Writeln('Число повторяется ',i,' раз во второй карточке.' )
  7. end.
Success #stdin #stdout 0s 4192KB
stdin
Standard input is empty
stdout
Число повторяется  1 раз во второй карточке.
Число повторяется  2 раз во второй карточке.
Число повторяется  3 раз во второй карточке.