Помогите зделать задачу по информатике в паскале. у человека A рублей покуп B парт по 50 р

если имеешь введу вывести B то
program gh;
var A,B:INTEGER;
BEGIIN
readln(A);
B:=A DIV 50;
WRITELN('МОЖНО КУПИТЬ ',B,'ПАРТ ');
WRITELN('у нас осталось ',A MOD 50,'РУБ');
END.