Приведите пример программы на лисп, где используются предикаты истинности

1.
#include <iostream>
#include <stdio.h>
#include <math.h>
using namespace std;

int main()
{
long double a,b,c;
setlocale(LC_ALL,"Russian");
cout <<"Введите катеты теугольника ";
cin>>a>>b;
c=sqrtl(a*a+b*b);
cout<<"Гепотенуза равна "<<c;
return 0;
}

2.
 #include <iostream>
#include <stdio.h>
#include <math.h>
using namespace std;

int main()
{
long double a,s,v;
setlocale(LC_ALL,"Russian");
cout <<"Введите ребро куба ";
cin>>a;
s=6*a*a;
v=a*a*a;
cout<<"Площадь поверхности равна "<<s<<", объем куба равен "<<v<<".";
return 0;
}
3.
#include <iostream>
#include <stdio.h>
#include <math.h>
using namespace std;

int main()
{
long double a,b,time;
setlocale(LC_ALL,"Russian");
cout <<"Введите размер наследства и трату в месяц ";
cin>>a>>b;
time=a/(b*12)
cout<<"Наследства хватит на "<<time<<" лет";
return 0;
}

Program F1;

var x,y:integer;

begin

x:=10;y:=20;

if x > y then

 begin x:=1; y:=2 end

         else begin x:=2; y:=1;end;

writeln(x,' ',y);

end. 2 1

Пояснення. Виконуються оператори, що стоять після else, а потім writeln

Program F2;

var x,y:integer;

begin

x:=10;y:=20;

if x < y then

  begin x:=1; y:=2 end

         else begin x:=2; y:=1;end;

writeln(x,' ',y);

end. 1 2

Пояснення. Виконуються оператори, що стоять після then, а потім writeln

Program F3;

var x,y:integer;

begin

x:=10;y:=20;

if x < y then

  begin x:=1; y:=2 end

         else x:=2; y:=1;

writeln(x,' ',y);

end. 1 1

Пояснення. Виконуються оператори, що стоять після then, а потім y:=1 та writeln. Оператор y:=1 виконується, бо він не відноситься до else

Program F4;

var x,y:integer;

begin

x:=10;y:=20;

if x < y then

  begin x:=1; y:=2 end

         else begin x:=2; y:=1; end;

x:=0; y:=0;

writeln(x,' ',y);

end.