Program Calc;
uses crt;
var
a, c: real;
Begin
clrscr;
Write('Enter first num: ');
ReadLn(a);
Write('Enter second num: ');
ReadLn(c);
WriteLn(a + c);
readkey;
End.

Очистка экрана перед работой проги + ожидание нажатия клавишы после ) Пусть твоя училка кончит =)))