Умовний оператор

1) program obcislenna_funkcii;
    uses crt;
     Var x,y:real;
      BEGIN
write('x=');read(x);
if x<5 then y:=(4*sqr(x)+1)/(x-5)
else y:=3*sqr(x)-2;
Writeln(y:1:2);
END.


2)program zrazok;
      uses crt;
     Var x,c1,c2,c3,p: integer;
     BEGIN
     read(x);
    c1:=x div 100;
    c2:= x div 10 mod 10;
    c3:= x mod 10;
    p:= c1*c2*c3;
    if x mod p =0 then writeln ('yes') else writeln ('no');
    END.


3) program Lift;
     uses crt;
 const hl=8;
      dv=10;
      d=87;
      g=75;
      max=500;
Var x,a,b,c,f,p:integer;
BEGIN
writeln(' vedit  kilkist hlopciv');
read(x);
x:= x*hl;
if x <= max then writeln ('yes') else writeln ('no');
Writeln(' vedit kilkist divcat');
read(a);
a:=a*dv;
if a <= max then writeln ('yes') else writeln ('no');

Writeln(' vedit kilkist cholovikiv');
read(b);
b:= b*d;
if b <= max then writeln ('yes') else writeln ('no');
writeln('vedit kilkist ginok');
read(f);
f:=f*g;
if f <= max then writeln ('yes') else writeln ('no');
END.



4)program Kolo_kvadrat;

uses crt;
Var a,b,c,d:real;
BEGIN
Write('a=');
Read(a);
Write('b=');
Read(b);
d:=sqrt(a/pi);
c:=sqrt(b);
if d>c then writeln (' radius') else writeln (' storona');
END.
---------------
Вхід а=34
в=43
Вихід  сторона
---------------------




5) Дано два різних дійсних числа. Знайдіть найбільше.
program disni_chisla;
uses crt;
Var a,b,c:real;
BEGIN
write ('a=');
read (a);
Write('b=');
read(b);
if a>b then writeln ('a bilshe') else   writeln ('b bilshe');
END.
-----------------
Вхід а=34
         в=43
Вихід b більше
--------------------



6)   Дано ціле число. Визначте, чи закінчується воно цифрою 7

program Viznacte;
uses crt;
 Var a,b,c: integer;
BEGIN
write ('a=');
read(a);
b:= a mod 10;
if b = 7 then writeln ('zakinchuetsya') else writeln ( 'ne zakinchuetsya');
END.
--------------------------
Вхід 47
Вихід закінчується
-------------------------



7) Дано (x, y) координати клітинки шахової дошки. З'ясуйте колір клітинки. (Клітинка (1; 1) – чорна).
program shahova_doshka;
uses crt;
var a,b,c:integer;
BEGIN
Writeln(a,b);
REad(A,b);
if (a mod 2=0) and(b mod 2=0) Then writeln('bile')
else writeln('chorne');
END.
------------------
Вхід 2;2
Вихід Біле
----------------------