Задача 1: Укажите предложения, которые не являются высказываниями:
1. В нашем городе есть музей.
2. Некоторые пингвины живут на Севере.
3. Послушайте сообщение.
4. Какой сегодня день?
5. Дважды два равно пяти или лёд тает.
6. Число 18 чётное и составное.
Задача 2:
Вычислите: ( ∧ ) ∧ ( ∧ А) ∧ ( ∧ ) = . ..
Задача 3:
Определите истинность высказывания ( > ) ∨ ( ) при X = 1.
Задача 4:
Для какого из приведённых имён истинно высказывание:
НЕ (Третья буква - гласная) И (Последняя буква - согласная)?
1) Иван
2) Ксения
3) Марина
4) Матвей

Program znanija;
var A:array[1..20] of integer;   
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое ) 

for i:=1 to 20 do  A[i]:=random(9); // заполняем массив 

for i:=1 to high(A) do  // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;  

for i:=1 to 20 do  write(A[i]:3);   // Выводит весь массив 

writeln();  // просто перевод на новую строку для красоты 

writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.

// PascalABC.Net
procedure RectangleSquare;
var
  a,b:double;
begin
  Write('Введите через пробел длины сторон прямоугольника: '); Read(a,b);
  Writeln('Площадь прямоугоьника равна ',a*b)
end;

var
  i:byte;
begin
  for i:=1 to 3 do RectangleSquare
end.

Тестовое решение:
Введите через пробел длины сторон прямоугольника: 3 7
Площадь прямоугоьника равна 21
Введите через пробел длины сторон прямоугольника: 12.4 15.8
Площадь прямоугоьника равна 195.92
Введите через пробел длины сторон прямоугольника: 14 12.5
Площадь прямоугоьника равна 175