Введите с клавиатуры два числа a и b . если оба числа четные , то вычислите их сумки выведите результат на экран .если оба нечетные то найдите произведение этих чисел и выведите результат . иначе, увеличить все числа в пять раз и выведите результаты

Uses crt;   var a, b, s, m, new, new1: integer; begin write('a = '); read(a); write('b = '); read(b); s: =a+b; m: =a*b; new: =5*a; new1: =5*b; if ((a mod 2)< > 0) and ((b mod 2)< > 0) then write('m = ',m)    else if ((a mod 2)=0) and ((b mod 2)=0) then   write('s = ',s);       if ((a mod 2)=0) and ((b mod 2)< > 0) then write('new = ',new);       if ((a mod 2)< > 0) and ((b mod 2)=0) then write('new1 = ',new1); end.описание: s=сумма чисел. m=произведение чисел. new=увеличение числа в 5 раз,если 1-ое число четное. new1=увеличение числа в 5 раз,если 2-ое число четное.

албания- тирана

бельгия- брюссель

венгрия- будапешт

греция- афины

лихтештейт- вадуц

5.5  8.8  9.8  11.6  12.7  11.7  11.2  9.3  10.3  10.4  7.4  7.2  5.2  5.3  6.3  6.9  7.8  2.8  2.9  3.9  3.6  4.5      а вот как переводить: с конца над числом в двоичной системе пишешь: 1,2,4, и.т.д      если  единичка есть-прибавляешь это число. если единички нет-ничего не прибавляешь.

например- 1011    8+0+2+1=11            1000      8+0+0+0=8    111   4+2+1=7   11      2+1=3      10    2+0=2                10011101      128+0+0+16+8+4+0+1=157  а твои числа все в уме считаются.проверь может я ошиблась где нибудь)