Вычислите зарплату работника при почасовой оплате, если известно, что тарифная ставка за 1 ч равно А р. , а количество

Program zarplata_rabotnika;Uses CRT;Var A, B, S : real; Begin CLRSCR; Writeln( ‘ введите тарифную ставку за 1 час работы A= ’ ); Readln(A); Writeln( ‘ количество отработанных работником часов в месяц B= ’ ); Readln(B); S:=A*B; writeln(‘ зарплата работника за месяц составляет S= ’ , S:5:2);repeat until keypressed;END.