Pascal/Turbo Pascal - problema

programa que solicite 3 numeros al usuario y calcule el promedio de estos
y lo imprima en pantalla

{Espero esto te sirva}

program promedio;
uses
crt;
var
num1, num2, num3 : integer;
num4 : real;


begin
clrscr;
writeln('Entre los 3 Numeros :');
readln(num1, num2, num3);
num4 := (num1 + num2 + num3) / 3;
writeln('El Promedio Es');
writeln;
writeln(num4:0:0);
readln;
end.