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

program obhcislenuafynkciyu;
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.

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 kilkistn ginok');

read(f);

f:=f*g;

if f<= max then writeln ('yes') else writeln('no');

END.

program plosha_kola_kvd;

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

Вихід сторона

............................

Дано два різних дійсних числа. Знайдіть найбільше.

program diusne_czislo;

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,b=43
Вихід b більше 
...................................

program Viznachennya;

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
Вихід закінчується 

..................................

Дано (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
Вихід Біле
............................



program Parnist;
uses crt;
Var a,b,c,s,x:integer;
BEGIN
Write(a);
Write(b);
read(a,b);
if (a mod 2=0) Then writeln('parne')
else writeln('ne parne');
if (b mod 2=0) Then writeln('parne')
else writeln('ne parne');
End.