[cawwe]

здравствуйте, нужно создать простейшую тестирую программу из 3 вопросов

правильно ли у меня сделано?

Код:

var
i:integer;
s:real;
begin
   for i:=1 to 3 do

RadioGroup1.ItemIndex:=2 then s:=s+1;
RadioGroup2.ItemIndex:=3 then s:=s+1;
RadioGroup3.ItemIndex:=0 then s:=s+1;

s:=s*20%;

Label1.Caption:= s;