Дано натуральное число n. можно его представить в виде суммы трех квадратов натуральных чисел? если можно, то: указать тройку x, y, z таких натуральных чисел, что x2 + y2 + z2 = n; напишите

Var n,i,j,k,s,sn:integer;
begin
writeln('n = ');
readln(n);
sn:=round(sqrt(n));
for i:=1 to sn do
 for j:=1 to sn do
  for k:=1 to sn do
   begin
   s:=i*i+j*j+k*k;
   if s=n then writeln(i,'^2+',j,'^2+',k,'^2 = ',s);
   end;
end.

Пример:
n = 253
3^2+10^2+12^2 = 253
3^2+12^2+10^2 = 253
10^2+3^2+12^2 = 253
10^2+12^2+3^2 = 253
12^2+3^2+10^2 = 253
12^2+10^2+3^2 = 253

1)область деятельности, в которой компьютеры используются в качестве инструмента, как для синтеза  изображений, так и для обработки визуальной информации, полученной из реального мира.
2)Компьютеры,телефоны ,для получения инфы и отбражения графики
3)это устройство для автоматического вычерчивания с больщой точностью рисунков,схем и т.п
4)Alt+Tab - Переключение между окнами 

Win+Tab - Переключение между окнами в режиме Flip 3D 
Win+Up - Развернуть окноWin+Down - Восстановить / Минимизировать окно 
Win+Left - Прикрепить окно к левому краю экрана 
Win+Right - Прикрепить окно к правому краю экрана 
Win+Shift+Left - Переключиться на левый монитор 
Win+Shift+Right - Переключиться на правый монитор 
Win+Home - Минимизировать / Восстановить все неактивные окна 
Win+Break(или Pause) - Запустить элемент Система из Панели Управления (пункт Свойства при нажатии правой кнопкой мыши на Компьютер в меню Пуск) 
Win+Space - Показать рабочий стол 
Win+B - Переход в область уведомлений(трей) 
Win+D - Свернуть окна или восстановить все окна 
Win+E - Запустить Проводник(Explorer) 
Win+F - Запустить встроенный диалог поиска Windows 
Win+Ctrl+F - Запустить Поиск по компьютеру из домена 
Win+F1 - Запустить встроенный диалог Windows: Справка и Поддержка 
Win+G - Отобразить гаджеты поверх всех окон 
Win+L - Блокировка рабочей станции(текущего сеанса пользователя) 
Win+M - Минимизировать все окна 
Win+P - Отобразить дополнительные опции дисплея (расширить рабочий стол на 2 монитор и т.п.) 
Win+R - Запустить диалоговое окно Выполнить 
Win+Т - Выбрать первый элемент в панели задач (Повторное нажатие переключает на следующий элемент, Win+Shift+T - прокручивает в обратном порядке) 
Win+U - Запустить Центр специальных возможностей (Ease of Access Center) 
Win+X - Запустить Mobility Center 
Win+цифра- Запустить приложение с панели задач (Win+1 запускает первое приложения слева, Win+2, второе, и т.к.) 
Win + "+" - Увеличить масштаб 
Win + "-" - Уменьшить масштаб 
Ctrl + колесо мыши (вверх\вниз) на рабочем столе - увеличить\уменьшить иконки рабочего стола.

В Проводнике (Explorer):
Alt+P - Показать / Скрыть Область предпросмотра

Панель задач:
Shift + щелчок на иконке - Открыть новое окно приложения 
Ctrl + Shift + щелчок по иконке - Открыть новое окно приложения с привилегиями администратора 
Shift + щелчок правой кнопкой на иконке - Показать меню приложения 
Shift + щелчок правой кнопкой на группе иконок - Показать меню, восстановить все / cвернуть все / Закрыть все 
Ctrl + щелчок по группе икнонок - Развернуть все окна группы

5)Вырезать, копировать ,вставить и т.п

Сначала код без комментариев:

Var
S:longint;
i:integer;
A:byte;

Begin
S:=0;
Repeat
   Read(A);
   if (A mod 2 <> 0)and(A mod 7 = 0) then S:=S+A;
Until A = 0;
WriteLn('S = ',S);
End.

Теперь объяснение каждой строки:

Var
S:longint;
i:integer;
A:byte; // В эту переменную будет вводится число с клавиатуры. Тип Byte может принимать значения от 0 до 255. Поэтому его как раз хватит.

Begin
S:=0; // Тут будет храниться сумма, поэтому переменную следует сперва обнулить.

Repeat // далее начинается цикл
   Read(A); // эта команда каждый раз считывает с клавы число, и записывает его в переменную A.

   if (A mod 2 <> 0)and(A mod 7 = 0) then S:=S+A; //тут проверяется 2 условия, и если они выполняются - к переменной S прибавляется значение переменной А
   1 условие: число нечётно, то есть остаток от деления его на 2 не равен нулю (A mod 2 <>0)
   2 условие: Число кратно 7, то есть делится без остатка на 7, то есть остаток от деления равен нулю (A mod 7 = 0)

Until A = 0; // Цикл повторяется до тех пор, пока введённое с клавы число не будет равно нулю (A = 0)

WriteLn('S = ',S); // Тут выводится искомая сумма
End.