Известна стоимость монитора, системного блока, клавиатуры и мыши. Сколько будут стоить n компьютеров. Написать программу в Poscal ABC

Простая задача, держи:

var a, b, c, d, n, j:integer;

begin

writeln ('Стоимость монитора') ;

readln (a) ;

writeln ('Стоимость системного блока') ;

readln (b) ;

writeln ('Стоимость клавиатуры') ;

readln (c) ;

writeln ('Стоимость мышки') ;

readln (d) ;

writeln ('Сколько компьютеров нужно?') ;

readln (n) ;

j: = (a+b+c+d) * n;

writeln ('Стоимость ', n, ' компьютеров = ', j) ;

end.

Var

m, s, c, k, n:integer;

begin

writeln ('Стоимость монитора:') ;

readln (m) ;

writeln ('Стоимость системного блока: ') ;

readln (s) ;

writeln ('Стоимость клавиатуры:') ;

readln (c) ;

writeln ('Стоимость мыши:') ;

readln (k) ;

writeln ('Кол-во компьютеров') ;

readln (n) ;

writeln ('Цена покупки: ', (m+s+c+k) * n) ;

end.