Создайте цикл который печатает четные числа до тех пор пока не выведет ваш возраст . если ваш возраст нечетное число создацте цикл котрый печатает нечетные числа до совпадения с возрастом.
возраст

pust' x chaek na pervom ostrove,a y na vtorom.

togda iz uslovia mozhno sostavit' sistemu:

x+y=79;

x-15-12=y+12;

togda y=x-39;

x+(x-39)=79;

x=59;

y=59-39=20.

otvet: 59 chaek na pervom ostrove, 20 na vtorom.

нет,так как это не текствовый документ ,а картинка,и компьютер читает отсканированный файл картинкой а не текстом!

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.

а столбчатая диаграмма

б график 

в ярусная диаграмма

г областная диаграмма

дкруговая диаграмма