Составить программу в pascal: найдите произведение чисел 58 до 158 с шагом 1.

Alviko прав, однако мы тут не благородные влюблённые, чтобы, в случае отказа, не надоедать, посему попытаться стоит, пусть и с pascalabc.net: var   a: system.numerics.biginteger : = new system.numerics.biginteger(1);   i: integer;     begin   for i : = 58 to 158 do     a : = a * i;   writeln(a); end.

// pascalabc.net 3.0, сборка 1150 от 22.01.2016 begin   var a: =arrrandom(10,50,100); a.println(', ');   var s: =0;   for var i: =0 to 9 do s+=a[i];   writeln('s=',s) end. тестовое решение: 64, 59, 67, 54, 90, 51, 94, 70, 65, 82 s=696 "школьный" вариант: // pascalabc.net 3.0, сборка 1150 от 22.01.2016 var   a: array[1..10] of integer;   i,s: integer; begin   randomize;   s: =0;   for i: =1 to 10 do begin       a[i]: =random(51)+50;       write(a[i],' ');       s: =s+a[i]       end;   writeln;   writeln('s=',s) end. тестовое решение: 82 88 94 65 73 94 86 56 91 60 s=789 и, чтобы не быть голословным, современный вариант: // pascalabc.net 3.0, сборка 1150 от 22.01.2016 begin   writeln('s=',arrrandom(10,50,100).println.sum) end. тестовое решение: 94 90 70 85 62 58 94 73 67 97 s=790

Rem basic-256 cls errors = 0 print "введите текст > "; rem пользователь вводит текст input a$ rem перебираем все буквы с начала и до предпоследней for i=1 to length(a$)-1 rem если встречаем букву ч или щ if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then rem тогда проверяем следующую за ней букву. rem если это буква я, тогда подсчитываем очередную ошибку if mid(a$, i + 1, 1) = "я" then errors = errors + 1 end if rem переходим к следующей букве next i rem вывод результата print "количество ошибок в тексте "; print errors rem конец программы end