var a1,b1,a2,b2,b3,c1,c2:integer;
begin
readln(a1,b1,a2,b2,b3);
c1:=a1+b2;
c2:=a2*b2;
c2:=c2*b3;
write('c1=',c1,' c2=',c2)
end.
Объяснение:
var a1,b1,a2,b2,b3,c1,c2:integer;
begin
readln(a1,b1,a2,b2,b3);
c1:=a1+b2;
c2:=a2*b2;
c2:=c2*b3;
write('c1=',c1,' c2=',c2)
end.
Объяснение: