Фрагмент алгоритму, команди якого можуть виконуватись більше ніж один раз це – …
А цикл
Б алгоритм
В виконавець
Г розгалуження

Program pr_1;
a:array [1..n] of real;
n, i:integer;
begin
readln(n)
for i := 1 to n do
begin
a[i] := readln()
if a[i] <0 then a[i] := a[i] - 5;
else a[i] := i;
end;
writeln(a);
end.

Шар -шарм
стол - ствол
клад - склад
арка - варка

1) Переводим  203.15 в десятичную систему счисления и получаем:110010112 
2) Переведем 69.48 в восьмеричную систему, получаем 105.36560507534 или 105(8)
3)Переведем 351.125 в шестнадцатиричную систему, получаем 15F.2 или 15F(16)  

Var
a,b,c: integer;
begin
readln(a);
c:=0;
while a<>0 do
begin
b:= a mod 10;
a:= a div 10;
if x mod 2=0 then 
c:=c+1;
end;
writeln(c)
end.