var tabletky,den,pocet:integer;
begin
tabletky:= strtoint(inputbox('zadajte','pocet tabletiek v skatulke',''));
den:= strtoint(inputbox('zadajte','pocet predpisanych tabletiek na den',''));
pocet:= tabletky/den;
memo1.Lines.add('tabletky vystacia na ' + inttostr(pocet) + ' dni');