Паскаль.дано двузначное число m и некоторое число k.определить равна ли сумма цифр числа m числу k

Program qq; uses crt; var m,k,a,b,d,c: integer; begin readln(m,k); a: =m mod 10; b: = (m div 10) mod 10; c: =(m div 10) div 10; d: =a+b+c; if k=d then writeln('да') else writeln('нет'); readkey; end.

#include< iostream> using namespace std; int main() {       int a;       cin > > a;       int min = a;       int max = a;       while(a)       {             cin > > a;             if (max < a & & a! =0) max = a;             if (min > a & & a! =0) min = a;       }       cout < < "min = "< < min< < "\n";       cout < < "max = "< < max< < "\n";       cout < < "min - max = "< < min-max< < "\n";       return 0; }

Конечно, на основе функций решение было бы элегантнее, но требовались // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! procedure getmax(a: array[,] of integer; var mr,mc: array of integer); // максимумы по строкам mr и столбцам mc begin   mr: =a.rows.select(r-> r.max).toarray;   mc: =a.cols.select(c-> c.max).toarray; end; procedure matrsort(a: array[,] of integer); // сортировка срок по первой колонке begin   for var i: =0 to a.rowcount-2 do       for var k: =0 to a.rowcount-2-i do           if a[k,0]> a[k+1,0] then a.swaprows(k,k+1); end; procedure iscont(n: integer; a: array [,] of integer; var res: boolean); // есть ли элемент n в массиве a? begin   res: =a.elementsbyrow.contains(n) end; begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var vr: =new integer[n];   var vc: =new integer[m];   getmax(a,vr,vc);   write('вектор максимумов по строкам: '); vr.println;   write('вектор максимумов по столбцам: '); vc.println;   matrsort(a);   writeln('*** отсортированный массив ***');   a.println(4); writeln(4*a.colcount*'-');   var k: =readinteger('введите значение элемента для поиска: ');   var q: boolean;   iscont(k,a,q);   if q then writeln('массив содержит введенное значение')   else writeln('массив не содержит введенного значения') end. пример количество строк в массиве: 4 количество столбцов в массиве: 7 *** исходный массив [4,7] ***   -96  63    6 -96 -21 -61 -54   31 -20  63 -48  70  13  48   72 -27 -68 -52  32  15 -58   -71 -86  45  49  40 -64  -2 вектор максимумов по строкам: 63 70 72 49 вектор максимумов по столбцам: 72 63 63 49 70 15 48 *** отсортированный массив ***   -96  63    6 -96 -21 -61 -54   -71 -86  45  49  40 -64  -2   31 -20  63 -48  70  13  48   72 -27 -68 -52  32  15 -58 введите значение элемента для поиска: 70 массив содержит введенное значение