#include <iostream>
using namespace std;
int main () {
int digit = 300;
do {
int sum = 0;
int teiler = 1;
while (teiler <= digit)
{
if (digit % teiler == 0)
sum+=teiler;
teiler++;
}
if(sum % 10 == 0)
{
cout << digit << endl;
}
digit++;
} while (digit <= 600);
return 0;
}
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
window.Clear;
DrawRectangle(i, 0, 50 + i, 50);
redraw;
end;
end.