Пример информационной модели-города. : )

Допустим, карта города

Var n,a: integer; begin write('n = '); read(n); a: =0; while n> 0 do     begin     if (n mod 10) > a then a: = n mod 10;     n: =n div 10;     end; write(a) end. var n,a,b: integer; c: boolean; begin write('n = '); read(n); a: =-1; b: =-2; c: =false; while n> 0 do     begin     if a=b then c: =true;     if n> 0 then           begin           a: =n mod 10;           n: =n div 10;           end;     if a=b then c: =true;     if n> 0 then           begin           b: =n mod 10;           n: =n div 10;           end;     end; if a=b then c: =true; if c then write('есть') else write('нет') end.

Мне лень на паскале + он туповат, вот код на с++ (современный язык на ряду с java)#include < bits/stdc++.h> #include < conio.h> typedef long long    lol; typedef unsigned long long ull; typedef int                it; typedef bool              bl; typedef long double ld; typedef char              cr; #define mp                  make_pair#define inf                int_max#define linf              long_long_max#define fr(i,n)        for(i=0; i< (n); i++)#define frr(i,n)      for(i=0; i< =(n); i++)#define wl(i,n)        while(i< n)#define prllprll      pair < pair< long long,long long> ,pair< long long,long long> > #define prll              pair< long long,long long> #define pri                pair< int, int> #define f                    first#define s                    second#define sqr(a)          ((a)*(a))#define pb                  push_back#define vll                vector< long long> #define vit                vector< int> #define sg                  string#define qit                queue< int> #define qll                queue< long long> #define pqll              priority_queue< long long> #define pqit              priority_queue< int> #define y                    dsadaf#define y1                  lfkfgiusing namespace std; lol a,b; int main(){      cin > > a > > b;       if (a> =1 & & a< =3)              cout < < 600*b;       else      if (a> =4 & & a< =7)              cout < < 700*b;       else      if (a> =8 & & a< =14)              cout < < 500*b;       else       return 0; }