Дан массив А(5,5). Вывести на экран сообщение о том в какой диагонали сумма элементов больше.

Диспетчер принимает заказ на такси. 
Принимает звуковую информацию, содержащую адрес подачи такси
Время 
и Адрес назначения.
Правило:
В соответствии с полученной информацией производит поиск по базе свободных таксистов и производит расчет стоимость по заданной формуле. 
Затем передает адреса и время таксисту а стоимость и номер машины клиенту.

Бабушка просит внучку включить на телевизоре какую-нибудь передачу про здоровье.

Получена звуковая информация, содержащая сообщение с задачей - переключать каналы, пока не встретится передача, соответствующая критерию - передача про здоровье.

Правило: 
переключать каналы, пока не встретится передача, соответствующая критерию - передача про здоровье.

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
{
программа, вычисляющая площадь прямоугольника.
}
var
  a,b: real;

begin
  write('Стороны прямоугольника ');
  read(a,b);
  writeln(' Площадь фигуры = ',a*b:10:3);
end.

Тестовое решение:
Стороны прямоугольника 5.3 6.7
 Площадь фигуры =     35.510

{
С клавиатуры вводятся 3 целых числа.
Определить количество положительных чисел
в этом наборе.
}
var
  a,i,n: integer;

begin
  for i:=1 to 3 do begin
  write(i,'число = ');readln(a);
  if a>0 then n:=n+1;
  end;
  writeln(' Положительных :',n);
end.