Запишіть виконання наведеного фрагмениа програми для табоичної величини, знасеннями елементів якої є числа: 0,5; -3; 2; -1,6​

использовать Рисователь

алг

нач

новый лист(600, 400, белый)

в точку (250,350)

линия в точку (300,75)

линия в точку (350,350)

линия в точку (250,350)

кисть(красный)

окружность(300, 75, 20)

залить(300,250)

в точку (200,350)

линия в точку (100,100)

линия в точку (265,265)

линия в точку (250,350)

линия в точку (200,350)

кисть(синий)

окружность(100, 100, 20)

залить(200,300)

в точку (400,350)

линия в точку (500,100)

линия в точку (335,265)

линия в точку (350,350)

линия в точку (400,350)

кисть(зеленый)

окружность(500, 100, 20)

залить(400,300)

кон

Объяснение:

Смотри картинку

Program lol (input, output);
var i, n, d, sd, s4d, kd, kn4d, k4d, kbd:integer;
begin
writeln ('Введите само число и число d');
read (n, d);
writeln ('Делители:');
I:=1;
sd:=0;
s4d:=0;
kd:=0;
kn4d:=0;
k4d:=0;
kbd:=0;
while I <=n do
begin
if n mod I = 0 then
begin
kd:=kd+1;
writeln (I);
sd:=sd+I;
if I > d then
kbd:=kbd+1;
if I mod 2 = 0 then
begin
s4d:=s4d+I;
k4d:=k4d+1;
end
else
kn4d:=kn4d+1;
end;
I:=I+1;
end;
writeln (' ');
writeln ('сумма делителей ', sd);
writeln ('сумма четных делителей ', s4d);
writeln ('количество делителей ', kd);
writeln ('количество нечетных делителей ', kn4d);
writeln ('количество четных делителей ', k4d);
writeln ('количество делителей болеше d ', kbd);
end.