Задача по программе паскаль. В магазине купили a кг конфет по b руб. за килограмм и c кг печенья по d руб., за килограмм. Вычислите сумму покупки.

program prog; uses crt; var a,b,c,s,d:real; begin write('a кг конфет = '); readln(a); write('b руб. за килограмм = '); readln(b); write('c  кг печенья = '); readln(c); write('d руб. за килограмм = '); readln(d); writeln; s:=a*b+c*d; writeln('Сумма покупки s = ', s:0:2); end.