program ideone; var i : integer; begin for i:=1 to 3 do Writeln('Число повторяется ',i,' раз во второй карточке.' ) end.
Standard input is empty
Число повторяется 1 раз во второй карточке. Число повторяется 2 раз во второй карточке. Число повторяется 3 раз во второй карточке.