Атуральное число больше 0
если n меньше или равно 9, то будет от 1 до 9 включительно
1,2,3,4,5,6,7,8,9
всего 9 цифр, а вот про количество повторений не понял. Просто в числе n их не будет
Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (Y>=0)and(Y<=X+4)and(Y<=4-X) then WriteLn('(',X,',',Y,') попадает в заштрихованную область')
else WriteLn('(',X,',',Y,') - мимо')
End.
При создании папки создается каталог, в котором могут хранится файлы. В файле так нельзя делать, только если это не специальный архив
var
n:real;
begin
readln (n);
n:=n*sqrt (2);
writeln (n);
end.