Много за ответ, только верный: ответить на вопросы по прогромированию: 1) какие знаки используются для написания коминтариев к программам? (язык pascal)2)каким словом должна начинаться и заканчиваться процедурная часть в языке pascal? 3)в какие символы нужно заключать текст, чтобы pascal его выводил на экран? ​

1) Для комментариев в языке Pascal используются два слеша - //
Также используются фигурные скобки для блочных комментариев - { }
2)Для начала процедуры - begin, для конца - end.
3)В одинарные кавычки - 'Привет!'

Python

a = True

b = int(input())

while (a):

   if b == 1:

       print("Понедельник")

       a = False

   elif b == 2:

       print("Вторник")

       a = False

   elif b == 3:

       print("Среда")

       a = False

   elif b == 4:

       print("Четверг")

       a = False

   elif b == 5:

       print("Пятница")

       a = False

   elif b == 6:

       print("Суббота")

       a = False

   elif b == 7:

       print("Воскресенье")

       a = False

   else:

       print("Такого дня недели нет")

       b = int(input())

Осуществляется ввод, если b > не 1 - 7, то программа запрашивает число до тех пор, пока пользователь не введет нужное число.

Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.