Адрюшка Rush
Помогите пожалуйста Для десяти выстрелов, координаты которых задаются с клавиатуры Pascal программа
Для десяти выстрелов, координаты которых задаются с клавиатуры, вывести текстовые сообщения о попадании в мишень.
Задача на паскале, имеется код но не от этого рисунка
program shot;
uses crt;
var i: byte;
x,y,r: real;
begin
clrscr;
write('BBEDuTE R: ');
readln(r);
for i:=1 to 10 do
begin
write('BBEDuTe KOOPDuHATbI ',i,'-ro BbICTPeLA: ');
readln(x,y);
if((x*x+y*y=0))
or((x=-r)and(y