Помогите составить задачу в программе pascal.

Для приготовления квашеной капусты на 10 кг капусты берут 225 г соли, 350 г моркови, 200 г клюквы, 4 г лаврового листа. Сколько соли, моркови, клюквы и лаврового листа надо взять, если закуплено М кг капусты?

Понадобиться 225 одушпе

Лови

var

m, a:integer;

b, col, mor, kl, la:real;

begin

write ('Сколько кг капусты = ') ;

readln (m) ;

a:=m div 10;

b:=m mod 10;

mor:=350*a;

kl:=200*a;

col:=225*a;

la:=4*a;

b:=b*0.1;

mor:=mor+350*b;

kl:=kl+200*b;

col:=col+225*b;

la:=la+4*b;

writeln ('На ', m,'кг капусты надо: Морковки - ', mor,'г. Клюквы - ', kl,'г. Соли - ', col,'г. Лаврового листа - ', la,'г') ;

end.

Тут программа только с двузначными числами работает то есть 15 кг 30 кг и так далее.