решить проблему на языке Паскаль. 15. Два шарика, вращающиеся по кругу на встречу друг другу​

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL,"Russian");

int a,b,c,d,otvet,q=0,w=0;

cout<<"Введите a = "<<endl;

cin>>a;

cout<<"Введите b = "<<endl;

cin>>b;

       if (a>b)

{

cout << "Ошибка!";

return 0;

       }

cout<<"Введите c = "<<endl;

cin>>c;

cout<<"Введите d = "<<endl;

cin>>d;

       if (c>d)

{

cout << "Ошибка!";

return 0;

       }

for(a;a<=b;a++) //сумма чисел от a до b

{

 q+=a;

}

for(c;c<=d;c++) //сумма чисел от c до d

{

 w+=c;

}

otvet=q-w;

cout<<"ответ = "<<otvet<<endl;  

return 0;

}

1.

import random

a = random.randint(1,15)

b = random.randint(1,15)

if a == b:

a = 0

b = 0

print(a,b)

2.

import random

n = random.randint(1,999)

a = ""

b = ""

n = str(n)

if len(n) == 1:

a = "однозначное"

elif len(n) == 2:

a = "двухзначное"

elif len(n) == 3:

a = "трёхзначное"

n = int(n)

if n % 2 == 0:

b = "чётное"

else:

b = "нечётное"

print(a + " " + b + " число")

3.

n = int(input("Введите номер дня недели: "))

if n == 1:

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

elif n == 2:

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

elif n == 3:

print("Среда")

elif n == 4:

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

elif n == 5:

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

elif n == 6:

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

elif n == 7:

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

else:

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