Program pirog; Label m; Var a integer, b integer; Begin M: a:=0; b:=0; Readln(a); b:=a-1; Writeln(b); Goto m; End. Сначала мы даем название программе, после добавляем метку, затем добавляем переменные и указываем их тип. Пишем begin - начало программы и присваиваем мете m значение. После указываем переменным a и b значение 0. После открывается поле ввода куда вводим число, затем присваиваем переменной b значение a-1, затем выводим ее в консоль и переходим к метке m обратно наверх. Таким образом получилась бесконечная программа. В конце - end. Завершение программы.
#include <iostream>
using namespace std;
int main()
{
int L,A,B,P;
cin >> A >> B >> L;
P = (A+B)*2;
if(L > P)
L %= P;
if(L > 0 && L < A)
{
cout << "BOTTOM";
return 0;
}
if(L > A && L < A+B)
{
cout << "RIGHT";
return 0;
}
if(L > A+B && L < 2*A + B)
{
cout << "TOP";
return 0;
}
if(L > P - B && L < P)
{
cout << "LEFT";
return 0;
}
}
Объяснение: easy, bro