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

program LiFT;

uses CRT;
Const hl=8; dv=10; d=87; g=75; max= 500;
Var  a,b,c:integer;

BEGIN
Writeln('Vvesty kilkist hlopciv');
Read(a);
b:=a*8;
if  b < 500 then writeln('yes') else writeln('no');
END.


program LiFT;

uses CRT;
Const hl=8; dv=10; d=87; g=75; max= 500;
Var  a,b,c:integer;

BEGIN
Writeln('Vvesty kilkist hlopciv');
Read(a);
b:=a*8;
if b < 500 then writeln('yes') else writeln('no');
Writeln('Vvesty kilkist divchat');
Read(b);
c:=b*10;
if b < 500 then writeln('yes') else writeln('no');
END.


program kolo_ta_kvadrat;

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.


program Cile;

 Var skr,skv,a,r:real;
begin
  write('skr= ');read(skr);
  write('skv= ');read(skv);
  r:=sqrt(skr/pi); a:=sqrt(skv);
  if r>a then writeln('radius')
         else writeln('storona');
end.