1.Напишите программу, в которой вычисляется диаметр круга по заданной площади круга. 2.Для двух произвольных вещественных чисел вычислить их разность, если их первое число больше второго, иначе найти их произведение. Напишите программу для этого алгоритма.

Язык не задан, поэтому я напишу только алгоритм.
1) Вводим массив A(10, 10)
2) Открываем пустой массив из одной строки B(10)
3) flag = 0
4) Цикл по i от 1 до 9
4.1) Цикл по k от 1 до 10 (по столбцам)
4.1.1) Копируем i-ую строку из массива А в массив В
4.2) Конец цикла по k
4.3) Цикл по j от i + 1 до 10 (по строкам)
4.3.1) Цикл по k от 1 до 10 (по столбцам)
4.3.1.1) Сравниваем j-ую строку массива А и массив В
4.3.2) Конец цикла по k
4.3.3) Если строки равны, то выводим их на экран.
4.4) Конец цикла по j
5) Конец цикла по i
6) Конец
Коротко говоря, алгоритм такой.
Сравниваем 1 строку со всеми от 2 до 10. Если строки совпали - выводим их на экран. Можно вывести только номера, можно сами строки.
Переходим ко 2 строке. Ее сравниваем от 3 до 10. И так далее.
Последнюю 9 строку сравниваем только с 10.

1. "Школьное" решение
// PascalABC.Net 3.0, сборка 1064
var
  i,n1,n2:integer;
  s:longint;
begin
  Write('Введите интервал для вычисления суммы: '); Read(n1,n2);
  s:=0;
  if n1 mod 2 = 0 then i:=n1 else i:=n1+1;
  while i<=n2 do begin s:=s+i; i:=i+2 end;
  Writeln('Сумма четных чисел в интервале равна ',s)
end.

Тестовое решение:
Введите интервал для вычисления суммы: 7 14
Сумма четных чисел в интервале равна 44

2. Современное решение
// PascalABC.Net 3.0, сборка 1064
var
  n1,n2:integer;
begin
  Write('Введите интервал для вычисления суммы: '); Read(n1,n2);
  if Odd(n1) then Inc(n1);
  Writeln('Сумма четных чисел в интервале равна ',Range(n1,n2,2).Sum);
end.