Написать программу Паскаль, которая решает следующую задачу: телефонные разговоры с тремя населенными пунктами стоят с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.