Написать программу Паскаль, которая решает следующую задачу: телефонные разговоры с тремя населенными пунктами стоят с1, с2, с3 коп./мин. Разговоры длились t1, t2, t3 минут сооветственно. Какова общая стоимость разговоров?

Program razgovor; uses crt; var c1,c2,c3:integer;     t1,t2,t3:integer; begin   Write('Введите цену разговора с первым пунктом, с1= ');   Readln(c1);   Write('Введите цену разговора со вторым пунктом, с2= ');   Readln(c2);   Write('Введите цену разговора с третьим пунктом, с3= ');   Readln(c3);   Write('Введите длительность разговора с первым пунктом, t1= ');   Readln(t1);   Write('Введите длительность разговора со вторым пунктом, t2= ');   Readln(t2);   Write('Введите длительность разговора с третьим пунктом, t3= ');   Readln(t3);   clrscr;   Writeln('Общая стоимость разговора = ',c1*t1+c2*t2+c3*t3) end.