[lmikle]

Ну а в чем проблема?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,w:integer;
c : real;
str:string;

Stipendia : Currency;
HasC : Boolean;

begin
Memo1.clear;
w:=0;
str:= edit1.text;

HasC := False;

for i:=1 to length(str) do

begin

  w:=w+strtoint(str[i]);

  HasC := str[i] in ['1','2','3'] Or HasC;
end;


c:=w/length(str);


if Not HasC Then Stipendia := 100 * 0.5 Else Stipendia := 0;