profile="http://gmpg.org/xfn/11"> Ѐункция Π‘Ρ‚Ρ€ΠŸΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒΠ‘Ρ‚Ρ€ΠΎΠΊΡƒ (Π‘Ρ‚Ρ€ΠΎΠΊΠ°, ВСкНомСрБтроки) Π² 1Π‘. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Ѐункция Π‘Ρ‚Ρ€ΠŸΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒΠ‘Ρ‚Ρ€ΠΎΠΊΡƒ (Π‘Ρ‚Ρ€ΠΎΠΊΠ°, ВСкНомСрБтроки) Π² 1Π‘.

Ѐункция Π‘Ρ‚Ρ€ΠŸΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒΠ‘Ρ‚Ρ€ΠΎΠΊΡƒ (Π‘Ρ‚Ρ€ΠΎΠΊΠ°, ВСкНомСрБтроки) Β Π² 1Π‘.
Ѐункция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ строку ΠΏΠΎ Π½ΠΎΠΌΠ΅Ρ€Ρƒ Π² многострочной строкС. НумСрация строк начинаСтся с 1.

Код:

Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°="Π‘Ρ€ΠΎΠΊΠ° ΠΎΠ΄ΠΈΠ½
|Π‘Ρ‚Ρ€ΠΎΠΊΠ° Π΄Π²Π°";
ЧислоЛи=БтрЧислоБтрок(Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°);
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ("Число "+ЧислоЛи);
Для Π»=1 По ЧислоЛи Π¦ΠΈΠΊΠ»
	НоваяБтрокаЛи= Π‘Ρ‚Ρ€ΠŸΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒΠ‘Ρ‚Ρ€ΠΎΠΊΡƒ(Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°, Π»);
    Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ("Π‘Ρ‚Ρ€ΠΎΠΊΠ° "+НоваяБтрокаЛи);
ΠšΠΎΠ½Π΅Ρ†Π¦ΠΈΠΊΠ»Π°;

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.