На языке программирования pascal abc, 9 класс недавно на поле фермера джона были обнаружены следы приземления летающих тарелок. об этом даже писала газета mew yorc courier. поле фермера джона имеет форму круга радиусом r1. по сообщениям журналистов были обнаружены два следа от летающих тарелок,
имевшие форму кругов. один из них имел радиус r2, второй - радиус r3. также сообщается, что они находились внутри поля фермера джона и не пересекались, ни один из них не лежал внутри другого. при этом, они, возможно, касались друг друга и/или границы поля. поскольку журналисты часто склонны
преувеличивать масштабы событий, необходимо написать программу, которая будет проверять, могли ли иметь место события, описанные в газете.

 1.
#include <iostream> //если не отображается, пиши после include - iostream в <>
 using namespace std;

 int main(){
  for(int i=0;i<10;i++)
         cout<<"Hello World";
  cin.get();
  cin.get();
  return 0;
 } 11.
#include <iostream> //если не отображается, пиши после include - iostream в <>
#include <string> //если не отображается, пиши после include - string в <>
using namespace std;
int main() {
string s,p;
         cin>>s;
         cin>>p;
         if((p!="v") && (p!="g"))
         return 66;
         int n;
         cin>>n;
         if (p=="g"){
          for(int i=0;i<n;i++)
          cout<<s;
         }
         else
         {
          for(int i=0;i<n;i++)
          cout<<s<<"\n";
         }
         cin.get();
         cin.get();
return 0;
}

Var
  d1,d2,n:integer;
  k,s:longint;
begin
  Write('Введите натуральное двухзначное число: '); Read(n);
  d1:=n div 10; d2:=n mod 10;
  k:=sqr(n); s:=4*(d1*sqr(d1)+d2*sqr(d2));
  Write(n,': ');
  if k=s then Writeln('Квадрат числа (',k,
      ') равен учетверенной сумме кубов его цифр')
  else Writeln('Квадрат числа (',k,
      ') не равен учетверенной сумме кубов его цифр (',s,')')
end.

Тестовое решение:
Введите натуральное двухзначное число: 48
48: Квадрат числа (2304) равен учетверенной сумме кубов его цифр

Введите натуральное двухзначное число: 47
47: Квадрат числа (2209) не равен учетверенной сумме кубов его цифр (1628)

Замечание: На самом деле лишь одно число 48 среди всех двухзначных чисел удовлетворяет условию равенства, так что достаточно просто сравнивать введенное число с 48, чтобы решить задачу )))