√информатика√ help me составить программу (блок схему и на языке программирования паскаль) нахождения площади треугольника,если извесны его основание и высота

Program p1;var a,h:integer;s:real;beginwrite('Введите основание: ');read(a);write('Введите высоту: ');read(h);s:= (a*h) / 2;writeln('Площадь: ', s);end.