на x рублей купили y компьютеров.Сколько компьютеров можно купить на z рублей.
ЗАДАЧА ДЛЯ PASCAL РРЕШИТЕ УМАЛЯЮ

var

b,a,c:integer;

begin

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

readln(a);

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

readln(b);

c:=trunc(b/a);

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

end.