Написать программу, вычисляющую сумму первых 10 нечётных целых чисел. Заранее спасибо.

program prog;var a,i,s:integer;begins:=0;writeln('Укажите начало отрезка ');readln(a);for i:=a to a+10 do beginif a mod 2 = 1 thens:=a+s;end;write('Сумма нечетных 10 элементов начиная с ',a,' равна ',s);end.