Untitled

{ ’ҐЄбв § ¤ Ёп:
  titry2 - ’Ёвал-2
     €¬ҐҐвбп N Ї а д ¬Ё«Ё© Ё Ё¬Ґ:
     д ¬Ё«Ёп - Ї®б«Ґ¤®ў вҐ«м®бвм « вЁбЄЁе ЎгЄў, ҐҐ ¤«Ё  - б«гз ©®Ґ зЁб«®
     ®в 5 ¤® 15 бЁ¬ў®«®ў;
     Ё¬п - Ї®б«Ґ¤®ў вҐ«м®бвм « вЁбЄЁе ЎгЄў, ҐҐ ¤«Ё  - б«гз ©®Ґ зЁб«®
     ®в 3 ¤® 10 бЁ¬ў®«®ў;
     €¬Ґ  Ё д ¬Ё«ЁЁ  зЁ овбп б Ў®«ми®© ЎгЄўл.
     —Ёб«® N - б«гз ©®Ґ зЁб«® ®в 50 ¤® 100.
     ќвЁ Ї ал д ¬Ё«Ё© Ё Ё¬Ґ пў«повбп ’Ёва ¬Ё Є Є®Ј®-в® дЁ«м¬ .
     ЋЁ Ї® ®зҐаҐ¤Ё ўлў®¤пвбп   нЄа  бЁ§г ўўҐае. ЏаЁ нв®¬ ¬Ґ¦¤г Ё¬ҐҐ¬
     Ё д ¬Ё«ЁҐ© ¤®«¦® Ўлвм 2 Їа®ЎҐ« , Є ¦¤ п бва®Є  б д ¬Ё«ЁҐ© Ё Ё¬ҐҐ¬
     а бЇ®«®¦Ґ  Ї® жҐваг нЄа  .
     Џа®жҐбб Їа®¤®«¦ Ґвбп ¤® вҐе Ї®а, Ї®Є  Ґ ЁбзҐ§Ґв Ї®б«Ґ¤пп бва®Є .
     „«п ЈҐҐа жЁЁ Ё¬ҐЁ Ё д ¬Ё«ЁЁ г¦®  ЇЁб вм бў®о дгЄжЁо GetName
     (ўе®¤®© Ї а ¬Ґва - Є®«ЁзҐбвў® бЁ¬ў®«®ў,   ўле®¤Ґ - бва®Є ).

     ‡ ¬Ґз ЁҐ 1:   a..z  -  97..122
                    A..Z  -  65..90
                Њ®¦® ®Ў®©вЁбм Ё ЎҐ§ § Ёп зЁб«®ўле Є®¤®ў.

     ‡ ¬Ґз ЁҐ 2:  Ја Ёжл ¤Ё Ї §®®ў б«гз ©ле зЁбҐ« § ¤ вм Є®бв в ¬Ё.
     { Ђўв®а Їа®Ја ¬¬л: ’ в иЁ  Ђ .}

Program TITRY2;
Uses CRT;
CONST
  Nmax=100;
  Nmin=50;
  NameMin=3;
  NameMax=10;
  FamMin=5;
  FamMax=15;
VAR
  N,kolName, kolFamil  : byte;
  name, famil          : string;

Function GetName(kolvo : byte) : string;
Var
  stroka1 : string;
  i       : byte;
Begin
  stroka1[1]:=chr(Random(91-65+1)+65);
  For i:=2 to kolvo do
    stroka1[i]:=chr(Random(ord('z')-ord('a')+1)+ord('a'));
    Getname:=stroka1;
End;


BEGIN
  Randomize;
  Repeat
   ClrScr;
    WriteLn('');
    WriteLn('  titry2 - ’Ёвал-2');
    WriteLn('     €¬ҐҐвбп N Ї а д ¬Ё«Ё© Ё Ё¬Ґ:');
    WriteLn('     д ¬Ё«Ёп - Ї®б«Ґ¤®ў вҐ«м®бвм « вЁбЄЁе ЎгЄў, ҐҐ ¤«Ё  - б«гз ©®Ґ зЁб«®');
    WriteLn('     ®в 5 ¤® 15 бЁ¬ў®«®ў;');
    WriteLn('     Ё¬п - Ї®б«Ґ¤®ў вҐ«м®бвм « вЁбЄЁе ЎгЄў, ҐҐ ¤«Ё  - б«гз ©®Ґ зЁб«®');
    WriteLn('     ®в 3 ¤® 10 бЁ¬ў®«®ў;');
    WriteLn('     €¬Ґ  Ё д ¬Ё«ЁЁ  зЁ овбп б Ў®«ми®© ЎгЄўл.');
    WriteLn('     —Ёб«® N - б«гз ©®Ґ зЁб«® ®в 50 ¤® 100.');
    WriteLn('     ќвЁ Ї ал д ¬Ё«Ё© Ё Ё¬Ґ пў«повбп ’Ёва ¬Ё Є Є®Ј®-в® дЁ«м¬ .');
    WriteLn('     ЋЁ Ї® ®зҐаҐ¤Ё ўлў®¤пвбп   нЄа  бЁ§г ўўҐае. ЏаЁ нв®¬ ¬Ґ¦¤г Ё¬ҐҐ¬');
    WriteLn('     Ё д ¬Ё«ЁҐ© ¤®«¦® Ўлвм 2 Їа®ЎҐ« , Є ¦¤ п бва®Є  б д ¬Ё«ЁҐ© Ё Ё¬ҐҐ¬');
    WriteLn('     а бЇ®«®¦Ґ  Ї® жҐваг нЄа  .');
    WriteLn('     Џа®жҐбб Їа®¤®«¦ Ґвбп ¤® вҐе Ї®а, Ї®Є  Ґ ЁбзҐ§Ґв Ї®б«Ґ¤пп бва®Є .');
    WriteLn('     „«п ЈҐҐа жЁЁ Ё¬ҐЁ Ё д ¬Ё«ЁЁ г¦®  ЇЁб вм бў®о дгЄжЁо GetName');
    WriteLn('     (ўе®¤®© Ї а ¬Ґва - Є®«ЁзҐбвў® бЁ¬ў®«®ў,   ўле®¤Ґ - бва®Є ).');
    WriteLn('');

    {-------------------------------------------------------}
    N:=Random(Nmax-Nmin+1)+Nmin;
    KolName:=Random(NameMax-NameMin+1)+NameMin;
    KolFamil:=Random(FamMax-FamMin+1)+FamMin;

    name:=GetName(KolName);
    WRITELN(NAME);


    {-------------------------------------------------------}

    GoToXY(15,WhereY+2);
    Write('Ќ ¦¬Ё «оЎго Є« ўЁиг ¤«п Ї®ўв®аҐЁп, Esc - ¤«п ўле®¤ ');
  Until ReadKey=#27;
END.