Задание 3. В системе программирования Pascal ABC co- ставьте программы для создания изображений (рис. 3.3 Вариант а) ​

const

 N=10;

var

 a:array[1..N]of integer;

 i,count,sum,t,max,min:integer;

begin

randomize;

sum:=0; count:=0; t:=0;

max:=-21; min:=21;

for i:=1 to N do

 begin

   a[i]:=random(41)-20;

   write(a[i]:4);

   sum:=sum+abs(a[i]);

   if a[i] mod 9 = 2 then  

     begin

       inc(count);

       t:=t+a[i];

     end;

   if max<a[i] then max:=a[i];

   if min>a[i] then min:=a[i];

 end;

writeln; writeln('Sum: ',sum);

        writeln('Count(x/9=2): ',count);

        writeln('SumOst: ',sum-t);

        writeln('Min: ',min,'  Max: ',max );

        writeln('Min*Max: ',min*max);

end.

2
а)
INPUT "Ширина первого прямоугольника";A1
INPUT "Длина первого прямоугольника";B1
INPUT "Ширина второго прямоугольника";A2
INPUT "Длина второго прямоугольника";B2
IF A1/A2=B1/B2 THEN PRINT "Фигуры подобны" ELSE PRINT "Нет подобия"

б)
PRINT '"Первый треугольник:"
INPUT "Первая сторона";A1
INPUT "Вторая сторона";B1
INPUT "Третья сторона";C1
PRINT '"Второй треугольник:"
INPUT "Первая сторона";A2
INPUT "Вторая сторона";B2
INPUT "Третья сторона";C2
IF (A1/A2=B1/B2) AND (B1/B2=C1/C2) THEN PRINT "Фигуры подобны" ELSE PRINT "Нет подобия"