terça-feira, 18 de novembro de 2014

Exercicio String




program ExercicioString;
uses crt;
 var
   nome : string;
   letra : string;
begin
 nome := 'Nava';
 writeln (nome);
 letra := nome[3] + nome[1];
 writeln (letra);
readkey;
end.
                       

Nenhum comentário:

Postar um comentário

Pascal - Lazarus