а1 = 100
аn = 990
n = 90
S = (100+990)*90/2 = решишь сам))
Program Main;
var c1, c2, c3, t1, t2, t3, s: integer;
Begin
Readln (c1, c2, c3);
Readln (t1, t2, t3);
c1:=c1*t1;
c2:=c2*t2;
c3:=c3*t3
s:=c1+c2+c3;
Writeln (c1);
Writeln (c2);
Writeln (c3);
Writeln (s);
Readln;
End.
Результат выполнения алгоритма показан на прилагаемом рисунке. Начальная точка может быть любой (не обязательно 0,0).