Pascal. написать свой возраст и возраст друга, с клавиатуры, если твой больше вывести свой возраст иначе возраст друга

program abc;var a,b: integer;beginwriteln ('Input your age: ');readln(a);writeln ('Input age of friend: ');readln(b);if (a > b) then writeln ('your age = ', a)else writeln ('age of friend = ', b);end.