Складіть проєкт для малювання п'яти рівносторонніх трикутників. Довжина сто- рони кожного наступного на 30 більша за довжину сторони попереднього, які
розміщені один поруч з іншим. Для задання початкового значення сторони ви-
користайте блок запитати і чекати (команду введення). Збережіть складений
проєкт у вашій папці у файлі з іменем завдання 4.4.5.​

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

25 декабря 1951 году был создан первый отечественный комп

var

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

i,n: integer;

begin

readln(n);

writeln('исходный массив');

for i: =1 to n do

begin

a[i]: =random(50)-25;

write(a[i]: 4);

end;

writeln;

writeln('измененный массив');

for i: =1 to n do

begin

if a[i]=0 then a[i]: =n;

if a[i]< 0 then

if (a[i] mod 7=0) then a[i]: =abs(a[i])

else a[i]: =a[i]*(-2);

write(a[i]: 4);

end;

end.