Какой скажи рисунок надо сделать попробую помочь
Б.мыши. г.окно а.вариантов в. меню "Пуск" .вроде так
PascalABC.NET
begin
var flag := true;
var a := readinteger;
var b := readinteger;
for var i := a to b do
if (i * i).ToString.EndsWith(i.ToString) then
begin
write(i, ' ');
flag := false;
end;
if flag then write(-1)
end.
Код программы можно посмотреть нажав Alt+F11