постройте блок схему для цикла с постусловием который будет выводить последовательно четыре цифры с шагом 0,5 начиная переменной x где x целочисленная переменная которую выводить пользователь

Можно так:

Var
A,i,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
For i:= 1 to 6 do
    Begin
    S:=S + (A mod 10);
    A:=A div 10;
    End;
WriteLn('S = ',S)
End.

И так:

Var
A,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
S:=A mod 10;
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
WriteLn('S = ',S)
End.

Или так

Var
A:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
WriteLn('S = ',(A div 100000)+((A div 10000)mod 10)+((A div 1000)mod 10)+((A div 100)mod 10)+((A div 10)mod 10)+(A mod 10))
End.

Код PascalABC.NET 3.2:

Var S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
    if S[i] = 'д' then
       if S[i+1] = 'о' then
          if S[i+2] = 'м' then
             k:=k+1;
WriteLn(k)
End.

Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 < d1 then d1:=d3;
if d2 < d1 then d1:=d2;
WriteLn(d1)
End.