Составьте блок-схему, для решения
следующей задачи:
Деду M лет, а внуку N лет. Через сколько лет дед станет
вдвое старше внука. И сколько при этом лет будет деду и
внуку

смотри блок-схему в приложенном файле

var a,b,c: integer;

begin

clrscr;

readln(a,b,c);

          if a = b then writeln(c);

          if b = c then writeln(a);

          if a = c then writeln(b);

readkey;

end. 

program a1; vara: array [1..15] of integer; a2: array [1..15] of integer; mas1: integer; mas2: integer; raz: integer; i: integer; begin//подключаем датчик случайных чиселrandomize; //цикл заполняющий массивы и нахождение сумм элементов масиваfor i: =1 to 15 dobegina[i]: =random(100); a2[i]: =sqr(a[i])-a[i]; mas1: =mas1+a[i]; mas2: =mas2+a2[i]; end; //находим разницу массивовraz: =mas1-mas2; //выводим на экран 1ый массивwrite('первый массив: '); for i: =1 to 15 dobeginwrite(a[i],'|')end; writeln(''); //выводим на экран 2ой массивwrite('второй массив: '); for i: =1 to 15 dobeginwrite(a2[i],'|')end; writeln(''); //выводим на экран разность массивовwrite('разность сумм элементов массива: ', raz); writeln(''); end.

read(n);

if (n> 99) and (n< 1000) then writeln('yes');