На x рублей купили y компьютеров.сколько компьютеров можно купить на z рублей. для pascal ррешите умаляю

var

b,a,c:integer;

begin

writeln('Введите цену компьютера: ');

readln(a);

writeln('Введите сумму ваших денег: ');

readln(b);

c:=trunc(b/a);

writeln('Количество компьютеров которые вы можете купить на эту сумму: ',c);

end.