Попробуй змейкой сначала вправо до конца потом вниз до конца и та по круговой и всё закрасишь понял?
Program Evklid;
var M,N : integer;
begin
writeln (`Введите M и N`);
readln (M , N);
while M<>N do
begin
if M>N
then M:=M-N
else N:=N-M
end;
write (`нод =`,M);
end.
===== PascalABC.NET =====
begin
ReadSeqInteger('Введите 12 чисел', 12)
.Count(p -> p.InRange(-9, 9)).Println
end.
По способу восприятия информация не может быть: тестовой, визуальной, символьной, графической