var
b,a,c:integer;
begin
writeln('Введите цену компьютера: ');
readln(a);
writeln('Введите сумму ваших денег: ');
readln(b);
c:=trunc(b/a);
writeln('Количество компьютеров которые вы можете купить на эту сумму: ',c);
end.
var
b,a,c:integer;
begin
writeln('Введите цену компьютера: ');
readln(a);
writeln('Введите сумму ваших денег: ');
readln(b);
c:=trunc(b/a);
writeln('Количество компьютеров которые вы можете купить на эту сумму: ',c);
end.