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

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.