[orion_asm]

Сообщение от cawwe

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

Код:

var
i:integer;
s:real;
begin
   for i:=1 to 3 do
begin
RadioGroup1.ItemIndex:=2 then s:=s+1;
RadioGroup2.ItemIndex:=3 then s:=s+1;
RadioGroup3.ItemIndex:=0 then s:=s+1;
end;
s:=s*20%;

Label1.Caption:= s;

Зачем использовать цикл? Тело цикла, состоящее более > 1 операции должно объединяться конструкцией begin...end;. Не понятна суть вашей задачи.