uses crt;
var a,k: Integer;
Begin
clrscr;
 k:=0;
 writeLn('  :      Turbo Pascal');
 WriteLn ;
 WriteLn ;
 WriteLn ;
 WriteLn('     enter');
 readln;
 clrscr;
 WriteLn ;
 WriteLn('    .');
 WriteLn ;
 WriteLn ;
 WriteLn(' 1.       ?');
 WriteLn;
 writeLn('1)            ');
 WriteLn('2)     ');
 WriteLn('3)      ');
 WriteLn;
 WriteLn;
 WriteLn ('       enter:');
 Readln(a);
 if a=3 then k:=k+1;
 clrscr;
 WriteLn(' 2.:        :');
 WriteLn;
 writeLn('1)        䳿;');
 WriteLn('2)        䳿;');
 WriteLn('3)        䳿,     -  䳿.');
 WriteLn;
  WriteLn ('       enter:');
  Readln(a);
 if a=3 then k:=k+1;
 clrscr;
 WriteLn(' 3.       :');
 WriteLn;
 writeLn('1)        䳿;');
 WriteLn('2)        䳿,     - ;');
 WriteLn('3)        䳿.');
 WriteLn;
 WriteLn ('       enter:');
 Readln(a);
 if a=2 then k:=k+1;
 clrscr;
 WriteLn(' 4.:  Turbo Pascal     :');
 WriteLn;
 WriteLn('1) readln, writeln;');
 WriteLn('2) if, case;');
 WriteLn('3)  (:=), go to.');
 WriteLn;
 WriteLn ('       enter:');
 Readln(a);
 if a=2 then k:=k+1;
 clrscr;
 WriteLn(' 5. IF     :');
 WriteLn;
writeLn('1) if <>then <1> else < 2>;');
WriteLn('2) if <>then <1>');
WriteLn('       if <>then < 2> ');
WriteLn('          if <>then < 3>');
WriteLn('              .');
WriteLn('              if <>then < n> else < n+1>;');

 
 WriteLn('3) if <>then <1>.');
 WriteLn;
  WriteLn ('       enter:');
  Readln(a);
 if a=1 then k:=k+1;
 Case k of
   5..6:  WriteLn('  "12"- . ³! ');
   3..4:  WriteLn('  "9"- .   ! ');
   0..2:  WriteLn('  "6"- . .');
 Else  WriteLn('  "2"- . !  ! ');
end;
 ReadLn
 End.
 
