Написать программу в паскале.
Дано натуральное число Х.Найти сумму квадратов чётных цифр в числе.

var  x,d,s:longint;begin  Writeln('Введите натуральное число: '); Read(x);  s:=0;  while x>0 do begin    d:=x mod 10;    if d mod 2=0 then s:=s+d*d;    x:=x div 10    end;  Writeln('Сумма квадратов четных цифр равна ',s)end.ПримерВведите натуральное число: 14702Сумма квадратов четных цифр равна 20