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

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