Ну не очень, вот мой вариант
program ff;
uses crt;
var r,x,y:integer;
begin
write('R=');
readln®;
writeln('Koordinaty tochki M:');
write('x=');
readln(x);
write('y=');
readln(y);
if (x>0) and (y>0) then
begin
if (r+1>=x) and (r+1>=y)
then
writeln('Tochka v krugu')
else
writeln('tochka ne v krugu');
end;
if (x>0) and (y<0) then
begin
if (r+1>=x) and (r-1>=y)
then
writeln('Tochka v krugu')
else
writeln('tochka ne v krugu');
end;
if (x<0) and (y<0) then
begin
if (r-1>=x) and (r-1>=y)
then
writeln('Tochka v krugu')
else
writeln('tochka ne v krugu');
end;
if (x<0) and (y>0) then
begin
if (r-1>=x) and (r+1>=y) then
writeln('Tochka v krugu')
else
writeln('tochka ne v krugu');
end;
if x=0 then
begin
if y>0 then
begin
if r+1>=y then
writeln('Tochka v krugu')
else
writeln('tochka ne v krugu');
end;
if y<0 then
begin
if r-1>=y then
writeln('Tochka v krugu')
else
writeln('tochka ne v krugu');
end;
end;
if y=0 then
begin
if x>0 then
begin
if r+1>x then
writeln('Tochka v krugu')
else
writeln('tochka ne v krugu');
end;
if x<0 then
begin
if r-1>x then
writeln('Tochka v krugu')
else
writeln('tochka ne v krugu');
end;
end;
readkey
end.
А вот прислала подруга
Program N2;
Var x,y,r:Real;
begin
write('Введите координату x: ');readln(x);
write('Введите координату y: ');readln(y);
write('Введите радиус r: ');readln®;
if abs(x)<=r then
if abs(y)<=r then
if sqr(x)+sqr(y)<=sqr® then writeln('Точка в окружности')
else writeln('Точка вне окружности');
write('Нажмите Enter');
readln;
end.
(Собственно вариант Аббиса, только от подруги

)
Ув. мои друзья мне опять нужна ваша помощь, вот ниже опишу что именно.
Задачка номер один:Пользователь вводит начальное, конечное значение Х и шаг. Нужно вывести значение аргумента и функции для каждого шага.
при Х=1, Y:=1
при X>1, Y:=F+Ln(x)
при X<1, Y:=1/Sqr(x)
где F := 19.5 * X + Sin ( x * x )
Задачка номер два:Проверить, поместится ли на диске компьютера музыкальная композиция, которая длится M минут и N секунд, если свободное дисковое пространство 8 мегабайт, а для записи одной секунды звука нужно 18 килобайт.
Вторую решил, кому инетерсно - могу выложить исходник. А вот с первой непонятка у меня , прошу вашей помощи.