Возраст маленькому марсианину коляйно известны возраст папы и возраст мамы. он хочет узнать, кто из них старше, но никак не может разобраться. ему в этом. input со стандартного устройства ввода вводится через пробел 2 целых положительных числа, не превосходящих 10000 – возраст папы и возраст мамы коляйно. output нужно выдать на стандартное устройство вывода одно из следующих сообщений: “mother is older than father” – если мама старше папы “mother is younger than father” – если папа старше мамы “mother and father are of the same age” – если папа и мама ровесники кавычки выводить не нужно. sample input 1234 4321 sample output mother is older than father
Program ParentsAge;
Var a, b: Integer;
Begin
Read(a);
Read(b);
If (a > 10000) Or (b > 10000) Then
WriteLn('Error! Age is bigger then 10000')
Else
Begin
If(aWriteLn('Mother is older than father')
Else if(a>b) Then
WriteLn('Mother is younger than father')
Else
Writeln('Mother and father are the same age');
End;
ReadLn;
End.