Ну если просто сделать так, чтобы программа заработала, то вот:

Проверьте строку с read, там наверняка еще одна ошибка, но она не мешает программе работать, она кое-что другое делает

program q5;

var a,h,c: integer;

s : real;

begin

writeln ('Введите два целых числа');

read(a,h,c);

s:=a*h/2;

writeln (a,'*',h,'/',2,'=',s);

end.