помогите решить задачи на паскале

[BurningRage]

1) Нарисовать цветик семицветик, у которого поочерёдно после нажатия клавиши улетает лепесток (исчезает с экрана)
2) в данном натуральном числе переставить цифры. Квадрат трёх значного числа оканчивается тремя цифрами, которые как раз и составляют это число. Написать программу поиска таких чисел.

[Arkuz]

Сообщение от BurningRage

1) Нарисовать цветик семицветик, у которого поочерёдно после нажатия клавиши улетает лепесток (исчезает с экрана)

Получился правда цветик-восьмицветик... , но просто я не хотел переделывать, а то с этой графикой, считать трудновато. И лепестки сделал тоже круглыми(так просто легче, а то высчитывать эти ломаные НАПРЯЖНО очень)

[Arkuz]

Сообщение от BurningRage

2) в данном натуральном числе переставить цифры. Квадрат трёх значного числа оканчивается тремя цифрами, которые как раз и составляют это число. Написать программу поиска таких чисел.

А вот это задание я не совсем понял. Можно подробнее и по-русски

[BurningRage]

Второе задание я сам не понял. Спасибо за прогу про цветок

если не трудно помогите дописать программу по нахождению цифр числа.

program p2;
uses crt;
var o,a,p,c: integer;
begin
clrscr;
writeln ('введите число');
readln (a);
p:=1;
while a>0 do
begin
c:= a mod 10;
o:= a div 10

;

Сообщение от BurningRage

если не трудно помогите дописать программу по нахождению цифр числа.

по нахождению произведения цифр числа

[alexBlack]

a := abs(a); // на всякий случай
p:=1;
while a > 0 do begin
   c:= a mod 10;
   p := p * c
   a:= a div 10;
end;

[BurningRage]

помогите найти ошибку в программе по нахождению произведения цифр числа

program p2;
uses crt;
var a,p,c: integer;
begin
clrscr;
writeln ('введите число');
readln (a);
a := abs(a);
p:=1;
while a>0 do
begin
c:= a mod 10;
 p := p * c 
a:= a div 10;
end;
writeln (p);
end.

[Карась]

Какая ошибка?
Я только увидел недописаную точку с запятой....

[BurningRage]

Какая ошибка?
Я только увидел недописаную точку с запятой....

программа не работает

[Карась]

"Неработает" - понятие растяжимое.
Что говорит компилятор?
На какую строку показывает?
Или проблемы с алгоритмом?

[BurningRage]

"Неработает" - понятие растяжимое.
Что говорит компилятор?
На какую строку показывает?
Или проблемы с алгоритмом?

в томто и дело что не чего не говорит ввожу число нажимаю энтер и ничего не происходит возвращается исходник программы