Создайте программу в pascal по обучению перехода дороги на сигнал сфетофора

Program itdxvvd; var x: string; begin writeln('введите цвет светофора (красный, желтый, зеленый)'); readln(x); if x='зеленый' then writeln('на ',x,' цвет можно переходить') else writeln('на ',x,' цвет нельзя переходить'); end.

1)A        B        A^B       ⌐A       (A^B)v(⌐A)
    0       0           0            1                  1
    0       1           0            1                  1
    1       0           0            0                  0
    1       1           1            0                  1

2) A       B         ⌐B           A^(⌐B)           (A^(⌐B))vB
     0      0            1                0                        0
     0      1            0                0                        1
     1      0            1                1                        1
     1      1            0                0                        1
где ⌐ - отрицание

Я не зміг скористуватися вашим зразком, тому знайшов інший такий самий на StackOverflow

Завдання 3
//////////////////////////////
#include <iostream>
#include <cmath>
using namespace std;
int main(){
   for(int i = -5;i <= 5; i++){
      if(i != -2 && sqrt((i*i)+7) - (20/(i+2)) == 0)
        cout<<i<<endl;
   }
  return 0;
}

Завдання 4
//////////////////////////////
#include <iostream>
#include <cmath>
using namespace std;
int main(){
   cout.width(18);
    cout.setf(ios::fixed,ios::floatfield);
    cout.precision(3);
   cout<<"X        Y ";
   for(double i = -4;i <= 4; i+=0.2){
      if(i < 0){
        cout.width(8);
        cout<<i<<;
        cout.width(8);
        cout<<((i*i)-7)<<endl;
      }
     else if(i >= 0 && i <=2){
        cout.width(8);
        cout<<i<<;
        cout.width(8);
        cout<<sqrt(4-(i * i))<<endl;
  }  
 else{  
    cout.width(8);    
    cout<<i<<;  
    cout.width(8);
    if((int)i==3 && i < 3.2){
        cout<<"NULL"<<endl;
        continue;
    }
    cout<<(i/((i*i)-9))<<endl;
 }    
   }
  return 0;
}