На языке Pascal выглядит так:
var
<span> n: </span>integer;
begin
<span> repeat</span>
<span> writeln(</span>'Введите число 5');
readln(n);
until n = 5;
// продолжение программы
end.
Var a:array[-50..50] of longint;i:longint;
Begin
for i:=-50 to 50 do
if (i>7) then write(i,' ');
writeln;
End.
<span>Вместо значков импликации порядок действий.
Сначала выполняются действия 1, порядок выполнения не важен,
затем действия 2, затем действие 3.
(A 2 (B 1 C)) 3 ((A 1 B) 2 (A 1 C))</span>