CASE
Case "" Of
" "
Else ""
End;
case N of
0..9 : writeln('');
10..99 : writeln('');
100..999 : writeln('')
else writeln(' "N" ')
end;
PROGRAM FUTURE;
var N : word;
BEGIN
writeln(' ');
Randomize;
N:=Random(20)+1; { N - 1 20 }
writeln; write(' ');
case N of
1 : writeln('');
2 : writeln('');
3 : writeln('');
4 : writeln('');
5 : writeln('');
6 : writeln('');
7 : writeln('');
8 : writeln('');
9 : writeln('');
10 : writeln('')
else writeln('')
end;
writeln(' Enter');
readln;
END.
IF
IF "" Then "1" Else "2";
"1" , ( True ),
"2" , ( False ).
IF a>=0 Then b := Sqrt(a)
Else
begin
WriteLn('a<0');
Readln;
Halt
end;
Else 2; . .
:
IF "" Then "1";
: IFa<0 Then a:= abs(a);
PROGRAM VES; { }
CONST A1=' ';
A2=' ';
A3=' ';
A4=' ';
var
V : integer;
BEGIN
Write(' V = '); ReadLn(v);
if V<62 then WriteLn(A1) { }
else if V<75 then WriteLn(A2)
else if V<88 then WriteLn(A3)
else WriteLn(A4)
writeln(' Enter');
readln;
END.
X3:= N mod 10; N:= N div 10; X2:= N mod 10; N:= N div 10; X1:= N;
x := A/B;
if Frac(x) = 0 then writeln(' "A" "B"');
if Int(x) = x then writeln(' "A" "B"');
If (a > 90) or (b > 90) or (c > 90) then writeln ( ' - ' );
If (a < 90) and (b < 90) and (c < 90) then
writeln(' - ');
If (a < 90)and (b < 90) and(c < 90) then
If (a=b) or (b=c) or (a=c) then
writeln(' - ')
else writeln(' - ');
If (a+b+c)<>180 then
begin
writeln(' <> 180');
Halt
end;
If ((a=b) and (c=d)) or ((a=c) and (b=d)) or ((a=d) and (b=c)) then
writeln('');