Паскаль определить наибольшую выручку от продажи трех видов товаров, если известны: цена товара; количество проданных товаров каждого вида. составить код программы

Program suma;
Var c1, c2, c3, t1, t2, t3, sum:integer;
begin
  readln(c1, c2, c3, t1, t2, t3);
  sum:= c1 * t1 + c2 * t2 + c3 * t3;
  write(sum);
end.