MichVis

Var
    Sum, Cost: LongInt;
Begin
    While Sum < 1 Do Begin
        Write('Количество денег?: ');
        ReadLn(Sum);
    End;
    While Cost < 1 Do Begin
        Write('Стоимость единицы товара?: ');
        ReadLn(Cost);
    End;
    WriteLn('Получится купить: ', Sum Div Cost, ' единиц товара.');
    WriteLn('Сдача составит: ', Sum Mod Cost);
    ReadLn;
End.