program exam;
uses kuj, crt, graph;
var
x,y, kiirusx,kiirusy: integer;
draiver, mood: integer;
n:string;
vastus: integer;
s: char;

begin
Zastavka12;
Zastavka3;
Zastavka4;

vastus:=K_1;
repeat
 case vastus of
  1: vastus:=K_1;
  2: vastus:=K_2;
  3: vastus:=K_3;
  4: vastus:=K_4;
  5: vastus:=K_5;
  6: vastus:=K_6;
  7: vastus:=K_7;
  8: vastus:=K_8;
  9: vastus:=K_9;
  10:vastus:=K_10;
  11:vastus:=K_11;
  12:vastus:=K_12;
  13:vastus:=K_13;
  14:vastus:=K_14;
  15:vastus:=K_15;
  16:vastus:=K_16;
  17:vastus:=K_17;
  18:vastus:=K_18;
  19:vastus:=K_19;
  20:vastus:=K_20;
  21:vastus:=K_21;
  22:vastus:=K_22;
  23:vastus:=K_23;
  24:vastus:=K_24;
  25:vastus:=K_25;
  26:vastus:=K_26;
  27:vastus:=K_27;
  50:vastus:=K_50;
  51:vastus:=K_51;
  52:vastus:=K_52;
  53:vastus:=K_53;
  54:vastus:=K_54;
  55:vastus:=K_55;
  56:vastus:=K_56;
  57:vastus:=K_57;
  58:vastus:=K_58;
  59:vastus:=K_59;
  60:vastus:=K_60;
  61:vastus:=K_61;
  62:vastus:=K_62;
  63:vastus:=K_63;
  64:vastus:=K_64;
  65:vastus:=K_65;
  66:vastus:=K_66;
  67:vastus:=K_67;
  68:vastus:=K_68;
  69:vastus:=K_69;
  70:vastus:=K_70;
  71:vastus:=K_71;
  72:vastus:=K_72;
  73:vastus:=K_73;
  74:vastus:=K_74;
  
 end;
until vastus=75;
LOPP;
end.