Написать программу которая запрашивает стоимость минуты разговора, время разговора в минутах и выводит на экран сумму,

Program stoimostj_pazgovora;Uses CRT;Var p, t, m : real; Begin CLRSCR; Writeln( ‘ введите стоимость одной минуты разговора p = ’ ); Readln(p); Writeln( ‘ введите длительность разговора в минутах t= ’ ); Readln(t); m:=p*t; writeln(‘ стоимость всего разговора m= ’ , m:5:2);repeat until keypressed;END.