Составить Блок-схему для программы var A, X, I:integer;
begin
write ('Введи двузначное число ');
read (A);
X := A div 10;
I := A mod 10;
if X=I then write ('Цифры равны ')
else write ('Цифры не равны ');
end.