Сделайте что-нибудь из 3, 4, 5 , пож^_^

Question

Сделайте что-нибудь из 3, 4, 5 , пож^_^

---

Answer 1

Задача №3 

Var a,a1,a2,a3,a4:integer;
Begin
   Readln(a);
 a1:=a div 1000;
 a2:=a div 100; a2:=a2 mod 10;
 a3:=a mod 100; a3:=a3 div 10;
 a4:=a mod 10;
    if (a1+a2)=(a3+a4) then writeln('Условие задачи выполнено')    
 else writeln('Условие задачи не выполнено');
End.

Задача №4 

Var a,a1,a2,a3:integer;
Begin
   Readln(a)
;a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10; 
     if (a1=a2) and (a2=a3) then writeln('Условие задачи выполнено')
       else writeln('Условие задачи не выполнено');
End.

Задача №5 

Var a,a1,a2,a3,a4:integer;
Begin
   Readln(a);
sqr(a);
     if (a>=100) and (a<=999) then begin<br>a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
        end;
     if (a>=1000) and (a<=9999) then begin <br>a1:=a div 1000;
 a2:=a div 100; a2:=a2 mod 10;
 a3:=a mod 100;
 a3:=a3 div 10;
 a4:=a mod 10;
        end;
  if (a1=3) or (a2=3) or (a3=3) or (a4=3) then writeln('Условие задачи выполнено')          else writeln('Условие задачи не выполнено');
End.