Page 17 - 6263

значення
end;

procedure testIf; // приклад оператора умови if-then-else
begin
readln(x); // ввести x
if (x>0) and (x<=10) then // якщо 0<x<=10 тоді
writeln(x*2) // вивести x*2
else if (x>10) and (x<=100) then // якщо 10<x<=100
тоді
writeln(x*3) // вивести x*3
else // інакше
writeln(0); // вивести 0
end;

procedure testCase; // приклад оператора умови case-of-
else
begin
k:=5; // присвоїти k значення
case k of // у випадку якщо
1: y:=3; // k=1 то y:=3
2: y:=6; // k=2 то y:=6
3,4: y:=7; // k=3 або 4 то y:=7
5..9: y:=10; // k=5..9 то y:=10
else y:=0; // у інших випадках y:=0
end;
end;

procedure testFor; // приклад оператора циклу for-to-do
var i:byte;
begin
for i:=0 to 5 do // повторювати від i=0 до i=5
writeln(i) // цю команду
end;
17