Паскаль

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

Составить код программы

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.