Вычислите стоимость покупки состоящий из текстильных тетрадей, нескольких ручек и нескольких карандашей

Var a, b, c, x, a1, b1, c1:integer;

begin

writeln ('Введите стоимость тетрадей') ;

readln (a1) ;

writeln ('Введите кол-во тетрадей') ;

readln (a) ;

writeln (''Введите стоимость ручек') ;

readln (b1) ;

writeln ('Введите кол-во ручек') ;

readln (b) ;

writeln ('Введите стоимость карандашей') ;

readln (c1) ;

writeln ('Введите кол-во карандашей') ;

readln (c) ;

x: = (a*a1) + (b*b1) + (c*c1) ;

writeln (x' руб.',) ;

end.