Составьте программу вычисления площади треугольника с основанием а и высотой h. значения а и he ведите с клавиатуры

Program z14;Var a,h,s:real;Begin  write('Введите A = ');  readln(a);  write('Введите H = ');  readln(h);  s:= a * h * 0.5 ;  writeln('S = ', s);End.