Блок-схема - в прилагаемом файле.
Программа:
var n,r,a,b,k,x,y,i:integer;
begin
readln(n,r,a,b);
k:=0;
for i:=1 to n do
begin
readln(x,y);
if sqr(x-a)+sqr(y-b)<r*r then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
3 4 1 1
2 2
-2 -3
0 0
k = 2
Ну здесь лишнее рак,потому что карась и окунь это рыба
Var a,b,c:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=0;
while a<>0 do begin
c:=c+b;
a:=a-1;
end; writeln('ответ : ',c);
<span>end.</span>
Должно работать по идеи
паскаль удалился,не проверить
проверь,если не работает,исправлю
var a,b,c:integer;
begin
writeln('введите длину прямоугольника');
read(a);
writeln('введите ширину прямоугольника');
read(b);
begin
c:=a*b;
writeln('площадь прямоугольника=',c);
<span>end;
end. </span>