program ComputerCost;

var
monitorCost, systemBlockCost, keyboardCost, mouseCost: real;
n: integer;
totalCost: real;

begin
write('Введите стоимость монитора: ');
readln(monitorCost);

write('Введите стоимость системного блока: ');
readln(systemBlockCost);

write('Введите стоимость клавиатуры: ');
readln(keyboardCost);

write('Введите стоимость мыши: ');
readln(mouseCost);

write('Введите количество компьютеров: ');
readln(n);

totalCost := n * (monitorCost + systemBlockCost + keyboardCost + mouseCost);

writeln('Общая стоимость ', n, ' компьютеров: ', totalCost:0:2);
end.