Program z1_35;
uses crt;
var a,b,t,y,i,p:integer; x,w:real;
BEGIN
clrscr;
writeln('Vvedite ceny karandasha');
readln(a);
writeln('Vvedite ceny tetradi');
readln(b);
writeln('Vvedite nachalnoe kolichestvo karandashey');
readln(t);
writeln('Vvedite kolichestvo prodannyh karandashey');
readln(y);
writeln('Vvedite nachalnoe kolichestvo tetradey');
readln(i);
writeln('Vvedite kolichestvo prodannyh tetradey');
readln(p);
x:=(a*t)+(b*i);
w:=a*(t-y)+b*(i-p);
writeln('Otvet x=',x:3:0, ' w=',w:3:0);
readln;
END.