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

var    i, c, t, sum : integer;                     // объявляем переменные вещественного типа.begin  for i:=1 to 3 do                             // начало цикла.    begin       writeln (\'Введите длительность \', i,\'-го разговора в минутах:\'); // вывод строки на экран.       readln(t);                                // считываем значение, введенное с клавиатуры.      writeln (\'Введите стоимость \', i,\'-го разговора в коп/мин:\');       // вывод строки на экран.      readln(c); // считываем значение, введенное с клавиатуры.      sum := sum + t * c;                // считаем общую сумму разговоров.    end;  writeln(\'Общая стоимость разговоров: \', sum, \' коп.\');         // вывод строки на экран.end.