Вариант 2; Задания а,б,в
Прога А на ABCPaskal^ Progaram sdaef; var S, i: real; label cikl; S:=0; i:=10; if i>5 then begin cikl: S:=S+i; i:= i-1 If i> 5 then goto cikl; else writeln (S); end; end.