Напишите программу в паскалях

Мама в магазине купила А конфет по В рублей и D печениья по F рублей. Сколько денег потратила мама?

Var

a, b, d, f, s1, s2: integer;

begin

Writeln ('Сколько конфет купила мама?') ;

Readln (a) ;

Writeln ('Сколько стоят конфеты?') ;

Readln (b) ;

Writeln ('Сколько печенья купила мама?') ;

Readln (d) ;

Writeln ('Сколько стоят печенья?') ;

Readln (f) ;

s1:=a*b;

s2:=d*f;

Writeln ('Мама купила конфет на ', s1, ' рублей, а печенья на ', s2, ' рублей.') ;

Writeln ('Всего мама потратила: ', s1+s2, ' рублей.') ;

end.