var a, a1, a2: integer;begin read(a); a1 := a div 1000 mod 10 + a div 100 mod 10; a2 := a div 10 mod 10 + a mod 10; writeln(a1 = a2);end.
var
a,a1,a2,a3,a4:integer;
begin
readln (a);
a1:=a div 1000 ;
a2:=a div 100 mod 10;
a3:=a div 10 mod 10;
a4:=a mod 10;
if (a1+a2) = (a3+a4) then writeln ('Равена')
else
writeln ('Не равна');
end.
using namespace std;
int main()
{
int max=0;
int temp,n;
cin>>n;
while(n>0)
{
temp=n%10;
if(temp>=max) {max=temp;}
n=n/10;
}
cout<<max<<endl;
}
using namespace std;
int main(){
int n;
int max;
cin>>n;
max=0;
for(int i=1;i<5;i++){
if((n%10)>max){
max=n%10;
}
n=n/10;
}
cout<<max;
cin.get();
cin.get();
return 0;
}
var
a, a1, a2: integer;
begin
read(a);
a1 := a div 1000 mod 10 + a div 100 mod 10;
a2 := a div 10 mod 10 + a mod 10;
writeln(a1 = a2);
end.
var
a,a1,a2,a3,a4:integer;
begin
readln (a);
a1:=a div 1000 ;
a2:=a div 100 mod 10;
a3:=a div 10 mod 10;
a4:=a mod 10;
if (a1+a2) = (a3+a4) then writeln ('Равена')
else
writeln ('Не равна');
end.