Деду M лет, а внуку N лет. Через сколько лет дед станет вдвое старше внука. И сколько при этом лет будет деду и внуку. (программа Паскаль)

Question

Деду M лет, а внуку N лет. Через сколько лет дед станет вдвое старше внука.  И сколько при этом лет будет деду и внуку.

Answer 1

USES Crt;
VAR
   M,N: BYTE;  Kl: BYTE;
BEGIN
  ClrScr;
  Write('Введите количество лет деда  ');  ReadLn(m);
  Write('Введите количество лет внука  ');  ReadLn(n);
  KL:=0;
  While (M>2*N) DO  Begin
    M:=M+1;    N:=N+1;    KL:=KL+1;
  End;
  WriteLn(M,' лет деду');
  WriteLn(N,' лет внуку');
  WriteLn('Через ',KL,' лет дед вдвое станет старше внука');
END.