Ребята срочно напишите полную программу по информатике на паскале,если завтра не сдам меня просто четвертуют( 1)Найдите все значения натуральных чисел X,Y,Z из интервала от 1 до 10,удовлетворяющих равенству: x^2+y^2=z^2 2)вычислите количество точек с целочисленными координатами,попадающих в круг R(R>0) с центром в начале координат. 3)Старинная задача. Сколько можно купить быков,коров и телят на 100р,если в сумме должно быть куплено 100 голов скота,а цена быка-10р,цена коровы-5р,цена теленка-0,5р ???? Пожалуйста помогите !!!!

1)
var
  x,y,z:integer;
begin
 for x:=1 to 10 do
  for y:=1 to 10 do
   for z:=1 to 10 do
  if sqr(x)+sqr(y)=sqr(z) then
  writeln(X= ,x, Y= ,y, Z= ,z);
end.
2)
var
  x,y,k,R:integer;
begin
 write(Введите радиус: );
readln(R);
 k:=0;
 if R>0 then
 begin
 for x:=-R to R do
  for y:=-R to R do
  if sqr(x)+sqr(y) end    else
write(Радиус должен быть положительным!);
end.