Aprobar y Reprobar: Notas

program nombre;
uses wincrt;
var
nota:integer;
begin
writeln('ingrese nota');
readln (nota);
if(nota >=30)then
writeln('aprobado')
else
writeln('reprobado');
end.