Написать программу которая выводит на экран 5 первых нечетных чисел

Program hello; begin writein('5 первых нечётных х чисел: 1 3 5 7 9'); end. совсем простенькая

Var a,b,c,anga,angb,angc,cs: real;     s: string; begin   write('длины сторон через пробел:   ');   readln(a,b,c);   if (a+b> c) and(a+c> b) and (c+b> a) then   begin     cs: =(sqr(a)+sqr(b)-sqr(c))/(2*a*b);     angc: =360*arccos(cs)/(2*pi);     writeln('угол с = ',angc: 4: 2);     cs: =(sqr(a)+sqr(c)-sqr(b))/(2*a*c);     angb: =360*arccos(cs)/(2*pi);     writeln('угол b = ',angb: 4: 2);     anga: =180-angb-angc;     writeln('угол a = ',anga: 4: 2);     if (anga< 90) and (angb< 90) and (angc< 90) then         s: ='треугольник остроугольный';     if (anga> 90) or (angb> 90) or (angc> 90) then         s: ='треугольник тупоугольный';     if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or        (sqr(b)+sqr(c)=sqr(a)) then         s: ='треугольник прямоугольный';         writeln(s);       end   else  writeln('треугольник составить нельзя'); end.