PROGRAM TresErros; (* Indentifier não pode começar com um dígito *)
begin
write('Este e ');
write('o meu
');
(* faltava ; *)
write('primeiro ');
writeln('programa');
end.
(* A última end do ficheiro é finalizada com . *)
var x10, a35, soma: real;
begin
write('Introduza um número:
');
readln(x10);
write('Introduza um número:
');
readln(a35);
soma := x10 + a35;
writeln('A soma de ',x10,' e ',a35,'
e ',soma);
end.
PROGRAM MyNameAndAge;
Var nome: string;
start, fim, idade:
integer
(* compile-time error: faltava ; *)
(* end e uma palavra
reservada de PASCAL *)
begin
write('O seu nome: ');
readln(nome);
write('o ano do seu nascimento:
')
(* compile-time error: faltava ; *)
readln(start)
(* compile-time error: faltava ; *)
write('O ano actual: ');
readln(fim);
writelnn('Exmo. ',nome,' voce
tem agora ',(fim-start),' anos');
(* run-time
error: division by zero *)
(* erro no
desenho do programa: trocar "(end-start)" com "nome" *)
end.