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

program n_1; var a, b, c, d, s: integer; begin write ('введите количество килограмм конфет>>'); readln (a); write ('введите цену конфет за килограмм>>'); readln (b); write ('введите количество килограмм печенья>>'); readln (c); write ('введите цену печенья за килограмм>>'); readln (d); s:=a*b+c*d; writeln ('сумма покупки>>'s); end.