Составить программу решения в паскале авс. дано вещественное число - цена 1 кг конфет. вывести стоимость 0.1, 0. конфет

Var c, i: real; begin       readln(c);         i : = 0.1;       while (i < = 1) do       begin           writeln(c * i);           i : = i + 0.1;       end; end.уже решал, но теперь по-другому)

Import randomchuslo = [random.randint(0,500) for x in range(1000)]five = []for i in chuslo: i %5==0: five.append(i)five.sort()five.reverse()print(five)[500, 500, 500, 495, 495, 495, 490, 485, 485, 480, 475, 470, 470, 470, 470, 465, 465, 460, 460, 460, 460, 455, 455, 455, 450, 450, 450, 450, 445, 440, 440, 435, 430, 430, 425, 425, 425, 425, 420, 420, 420, 420, 420, 415, 415, 405, 405, 395, 395, 395, 390, 385, 385, 380, 380, 375, 370, 365, 365, 360, 360, 360, 360, 355, 355, 355, 350, 350, 350, 345, 340, 335, 330, 330, 330, 330, 325, 325, 325, 320, 320, 315, 315, 315, 310, 310, 310, 310, 305, 305, 295, 295, 290, 280, 280, 280, 275, 275, 275, 275, 270, 260, 260, 255, 245, 240, 235, 230, 230, 225, 220, 220, 215, 215, 210, 210, 210, 205, 205, 205, 205, 205, 200, 200, 195, 195, 195, 190, 180, 175, 175, 175, 175, 170, 170, 160, 160, 160, 155, 155, 150, 145, 145, 140, 135, 135, 130, 130, 125, 125, 120, 120, 120, 110, 105, 100, 100, 100, 100, 95, 95, 90, 90, 85, 85, 80, 80, 80, 75, 70, 70, 65, 65, 65, 60, 45, 45, 45, 35, 30, 30, 20, 15, 10, 10, 10, 10, 0]

Var ar: array[1..10] of integer; ar1: array[1..10] of integer; ar2: array[1..10] of integer; i,n1,n2: integer; begin; randomize; writeln('first array: '); for i: =1 to 10 do  begin;   ar[i]: =random(10,99);   if odd(ar[i]) then //если нечётно     begin;     inc(n1);     ar1[n1]: =ar[i];     end     else     begin;     inc(n2);     ar2[n2]: =ar[i];     end;     write(ar[i]: 4);   end; writeln; writeln('array a: '); for i: =1 to n1 do write(ar1[i]: 4); writeln; writeln('array b: '); for i: =1 to n2 do write(ar2[i]: 4); end.