Задача по программе паскаль.

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

Спасибо большое :)

program prog;uses crt;vara,b,c,s,d:real;beginwrite('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.