Sub DQXTER()
Do
k = CInt(InputBox("Введите возраст от 1 до 99"))
Loop Until k >= 1 And k <= 99
Select Case k
Case 11 To 14
MsgBox "Мне " + Str(k) + " лет"
Case Else
Select Case k Mod 10
Case 1
MsgBox "Мне " + Str(k) + " год"
Case 2 To 4
MsgBox "Мне " + Str(k) + " года"
Case Else
MsgBox "Мне " + Str(k) + " лет"
End Select
End Select
End Sub
var m,n:integer;
begin
readln(m,n);
if (m mod n)=0 then
write(m div n) else
<span>writeln(m,'<em> на</em> ',n,' <em>нацело не делится.');
</em></span>end.
<em>Помог ставь "<u>Лучший ответ</u>" ;)</em>
Древние люди информации рисовали ответ в ) рисунки