program piada_cretina;

uses crt;

var
caracteristica : record

nome : string;
carisma : integer;

end;

begin

clrscr;

writeln(‘escreva o seu nome guerreiro!’) ;
writeln(”) ;
readln(caracteristica.nome);
writeln(‘Escreva quanto de Carisma seu personagem terá:’);
writeln(”) ;
readln(caracteristica.carisma);

if caracteristica.carisma > 10 then

begin

writeln(caracteristica.nome, ‘ SUA MULA!’) ;
writeln(‘CARISMA?!? PRA QUÊ CARISMA?!?’);

end;

readkey;

end.

Eu odeio pascal. Eu sei programar, mas fala isso pra minha faculdade??? Quem mandou eu ter que me transferir de faculdade….