Programa Lê Nome (básico) - Pascal

[sl@ckw@re]

program digite_seu_nome;
uses crt;

var nome:string;

begin
  clrscr;
  writeln('Qual é o seu nome:');
  readln(nome);
  if nome='sl@ckw@re' then
    writeln('Você é o cara!')
  else
    writeln('Eu não te conheço!');
  readkey;
end.