begin
και end
.
begin εντολή; εντολή; εντολή end
then
και το else
.
program CheckGrade2; var Grade: integer; begin write('Δώστε το βαθμό:'); readln(Grade); if Grade >= 5 then begin writeln('Πέρασες'); writeln(':-)') end else begin writeln('Κόπηκες'); writeln(':-(') end end.