program ideone;
function GetInfo() :string;
var
ID, PreferredName : String;
Valid : boolean;
begin
Valid = False
While Valid = False do
writeln("Please enter a valid ID");
readln(ID);
if
begin
(* your code goes here *)
end.
cHJvZ3JhbSBpZGVvbmU7CgpmdW5jdGlvbiBHZXRJbmZvKCkgOnN0cmluZzsKCnZhcgogICAgSUQsIFByZWZlcnJlZE5hbWUgOiBTdHJpbmc7CiAgICBWYWxpZCA6IGJvb2xlYW47CmJlZ2luCiAgICBWYWxpZCA9IEZhbHNlCiAgICBXaGlsZSBWYWxpZCA9IEZhbHNlIGRvCiAgICAgICAgd3JpdGVsbigiUGxlYXNlIGVudGVyIGEgdmFsaWQgSUQiKTsKICAgICAgICByZWFkbG4oSUQpOwogICAgICAgIGlmIAoKYmVnaW4KCSgqIHlvdXIgY29kZSBnb2VzIGhlcmUgKikKZW5kLg==