2задание:

Program GGF;

Var a,b:integer

Begin

Writeln('введите возраст Пети и Кати');

Readln(a,b);

If a<b then

Writeln('Петя младше');

Else

Writeln('Катя младше');

End.

А первое сейчас подумаю

Program GGF;

Var x,a,b:integer;

Begin

Write('введите пятизначное число');

Readln(x);

a:=x div 100