var x: integer;
var y: integer;
begin
readln (x);
readln (y);
write (x:2, y:2);
end.
вроде как то так.
