Напишите программку в паскалях Мать в магазине купила А конфет по

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.