program types;
var 
 {Цілочисельні типи}
 byteType: array[1..3] of byte; {0..255}
 shortintType: array[1..3] of shortint; {-128..127}
 wordType: array[1..3] of word; {0..65535}
 integerType: array[1..3] of integer; {-32768..32767}   
 longintType: array[1..3] of longint; {-2147483648..2147483647}
 {Дійсні типи}
 singleType: array[1..3] of single; {1.5 * 10 (-45 степені) - 3.4 * 10(38 степені)}
 realType: array[1..3] of real; {2.9 * 10(-39 степені) - 1.7 * 10(38 степені)}
 doubleType: array[1..3] of double; {5.0 ^ 10(-324 степені) - 1.7 * 10(308 степені)}
 extended : array[1..3] of extended; {3.4 * 10(-4951 степені) - 1.1 * 10(4932 степені)}
 {Символьні типи}
 stringType: array[1..3] of string; 
 charType: array[1..3] of char;
 
 select: byte;
begin
 writeln('Введіть номер типу');
 readln(select);
 
 case select of
 1:
 
 2:
 
 3:
 
 4:
 
 5:
 
 6:
 
 7:
 
 8:
 
 9:
 
 10:
 
 11:
 
 
  else
   writeln('Невірний номер типу');
 end;
 
 end.