Составить программу вычисления значений функции F(X) на отрезке х[A,B] - Pascal

program czik33;
var x,y,q,w,z,r:real;
begin
writeln (' введите отработанные часы 1 сотрудника');
readln(x);
writeln ('плата за час 1 сотрудника ');
readln(y);
r:=x*y;
writeln (r);
writeln (' введите отработаные часы 2 сотрудника');
readln(q);
writeln ('плата за час 2 сотрудника');
readln(w);
z:=q*w;
writeln(z);
 
 
end.