Написать программу Паскаль, которая решает следующую задачу: телефонные…

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.