var tabletky,den,zvysok,pocet:integer;
begin
tabletky:= strtoint(inputbox('zadajte','pocet tabletiek v skatulke',''));
den:= strtoint(inputbox('zadajte','pocet predpisanych tabletiek na den',''));
pocet:= tabletky div den;
zvysok:= tabletky mod den;
memo1.Lines.add('tabletky vystacia na ' + inttostr(pocet) + ' den/dni');
memo1.Lines.add('v skutulke zostane ' + inttostr(zvysok) + ' tabletiek');
if pocet>6 then memo1.Lines.add('liecba je uspesna')
else
memo1.Lines.Add('liecba nie je uspesna');


end;

end.