Дано пятизначное целое число, найти цифры этого числа. если один и последняя цифра равны, то найти их сумму. если они не равны, то найти их произведение. Если 2, три, четыре равны, найти сумму их квадратов в противном случае найти разницу этих чисел
var
a,n:integer;
begin
readln(a);
while a<>0 do
begin
if (a mod 5=0)or (a mod 7=0)then inc(n);
readln(a);
end;
writeln(n);
end.