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

В магазине купили 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.