Довести, що трикутник АВС - прямокутний і рівнобедрений, якщо А (-4;4), В(2;2), С(0;-4)

Я так понимаю, ты пишешь программу, которая говорит, сколько тебе лет))
Во-первых, её можно упростить. Во-вторых, ты в одном месте не поставил ;. Напишу примерный вид программы, которая должна работать:

Program Vozrast;
var i: integer;
begin
writln ('Введите возраст: ');
readln(i);
if (i < 1) or (i > 150) then
  writeln ('Это туфта, насяльника!');
if (i <> 11) and (i mod 10 = 1) then
  writeln (i, 'год');
if ((i<10) or (i>20)) and ((i mod 10 = 2) or (i mod 10 = 3) or (i mod 10 = 4) then
 writeln (i, 'года');
if ((i  > 9) and (i < 21)) or ((i mod 10 = 5) or (i mod 10 = 6) or (i mod 10 = 7) or (i mod 10 = 8) or (i mod 10 = 9) or (i mod 10 = 0)) then
  Writeln (i, 'лет');
end.

Должно сработать))

Наименьшее число 12

Пошаговое объяснение:

Три числа.

Пусть a - первое число, b - второе число, c - третье число.

Тогда все возможные произведения двух и всех трех будут равны:

ab = 180; bc=360; ca=450; abc=5400 (самое большое произведение - произведение всех трех чисел).

Подставим значение ab в произведение abc:

180*c=5400;

c=5400/180=540/18=(270*2)/(9*2)=270/9=30;

с=30

Подставим значение c в произведение bc:

b*30=360;

b=360/30=12;

b=12

Ну, и наконец:

12*a=180;

a=180/12=90*2/(6*2)=90/6=30*3/(2*3)=30/2=15

a=15

Проверяем:

если a=15; b=12; c=30, то

ab=15*12=180

bc=12*30=360

ca=30*15=450

abc=12*15*30=180*30=5400

Все правильно. Наименьшее число 12