SOS нужна помощь! Нужно составить алгоритм и программу по паскалю! cоставьте…

program num; var a,b,c,d: integer; begin writeln ('Введите два числа: '); read (a,b); c: =a*b; writeln ('Произведение ', a, ' и ', b, ': ', c); while (c > 0) do begin d: =d*10+(c mod 10); c: =c div 10; end; writeln (d); readln; end.