Составьте на паскале программу, которая запрашивает возраст двух детей (оли и коли), а затем выводит информацию о том, кто из них младше.

Program v;
var x, y: integer;
begin
readln(x);
readln(y);
if(x<y) then writeln(x);
else writeln(y);
end.

Var a,b:integer;
begin
write('Введи возраст Оли: ');
readln(a);
write('Введи возраст Коли: ');
readln(b);
if a<b
 then writeln('Оля младше')
 else writeln('Коля младше');
end.

Пример:
Введи возраст Оли: 5
Введи возраст Коли: 2
Коля младше