Задание не совсем корректное. Если в массиве хранятся числа и отсутствие осадков принято за "0", то программа выглядит так
var i: integer;
a: array[1..31] of integer;
begin
for i:=1 to 31 do read(a[i]);
for i:=1 to 31 do
if a[i]=0 then write(i, ' ');<span>
end.
</span>
стремное задание, но там не дана переменная k, поэтому ответ будет 4.
или 2880.
Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.