var a,b,c,k,s:real;
begin
writeln('Введите a');
read(a);
writeln('Введите b');
read(b);
writeln('Введите c');
read(c);
writeln('Введите k');
read(k);
s:=(a+b+c)*k;
writeln('s = ', s);
end.
