с командой выдает ошибку подскажите где. program q5;
var s,a,h,c: integer;
begin
writeln ('Введите два целых числа');
read (a,h,c);
s:=a*h/2
writeln (a,'*',h,'/',2,'=',s);
end.

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

Проверьте строку с 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.