Составьте программу, проверяющую верно ли утверждение, что сумма цифр введённого вами числа делится на 5 (Используя алгоритмические конструкции)​

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n

страус- самая крупная в мире птица. не летает

ввод х  | 2

х=х*х      | x=4

у=1-х      |y=-3

х=х*х      |x=16

х=5*х      |x=80

у=у+х    |y=77

у=у*у   

вывод у

var  a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: ');   readln(a); // вводим число (можно больше трех знаков)  while a < > 0 do  // пока остались цифры в числе   begin      s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме      a : = a div 10; // стираем последнюю цифру числа  end;   writeln('сумма цифр = ', s) // выводим результатend.