Нужно знать как задаётся эта заштрихованная область.
Например для окружности нужно что бы x^2+y^2<R где R радиус, x,y координаты точки.
В общем случае нужно что бы выполнялось неравенство при поставление в него координат заданных пользователем.
Var s : string;
var t : string;
begin
writeln ('Введите S:');
readln (s);
writeln ('Введите T:');
readln (t);
writeln (s+t);
end.