Tipos de Variaveis;

program tipos_variaveis;
uses crt;
    var
      alfanum           :       char;
      cad_caracters     :       string[30];
      numero            :       integer;
      num_real          :       real;
      verdade           :       boolean;

begin
    writeln('Digite um Caracter : ');
    readln(alfanum);
    writeln('Digite Nome e Endereço: ');
    readln(cad_caracters);
    writeln('Digite numero da residencia: ');
    readln(numero);
    writeln('CEP da Rua:   ');
    readln(num_real);
    verdade           :=      true;
      writeln(alfanum);
      writeln(cad_caracters);
      writeln(numero);
      writeln(num_real:4:2);
      writeln(verdade);
  readkey;
end.