Напишите программу в турбо паскале, которая выводит на экран фразу "всем, ! " 80 раз в таблице из 20 строк и 4 столбцов.

Uses crt; clrscr; var   i, j: integer; begin   for i : = 1 to 20 do   begin       for j : = 1 to 4 do write('всем, !     ');       writeln   end end.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   var k: =readinteger('введите число-дубликат для удаления: ');   var id: =a.findindex(t-> t=k);   if id> -1 then a: =a[: id+1]+a[id+1: ].where(t-> t< > k).toarray;   a.println end. пример n= 20 -23 -34 14 35 -16 -4 42 -13 -3 -49 24 49 26 -12 -16 16 47 33 -1 -16 введите число-дубликат для удаления: -16 -23 -34 14 35 -16 -4 42 -13 -3 -49 24 49 26 -12 16 47 33 -1

1) c = int(input('це число просте? : '))i = 2b = falsewhile i < c: +=1 if c%2==0: b = trueif b==true: print('нет')else: print('да')2) c = int(input('ведите сумму номеров прочитанных страниц: '))suma = 0i = 0while suma< c: +=1 suma += iif suma == c: print('номер последней прочитанной страницы - ',i)elif suma > c: print('сумма номеров прочитанных страниц не существует') пример: ведите сумму номеров прочитанных страниц: 10номер последней прочитанной страницы -  4пример_1: ведите сумму номеров прочитанных страниц: 512сумма номеров прочитанных страниц не существует 3) mas = []while true: = float(input(' a = ')) if a == 0: mas.append(a)print(mas)print("було введено ",len(mas),'чисел')print("минимальне число: ",min(mas))