Найти остаток от деления не используя mod в паскале

Var a,b: integer; begin readln(a,b); writeln(a-b*(a div b)); end.

Uses crt; var mas: array [1..10] of integer; i,a: integer; begin clrscr; writeln('input massive'); a: =0; for i: =1 to 10 do begin readln(mas[i]); if (i mod 2 =0) and (mas[i] < 0) then a: =a+1; end; writeln('answer ',a); end. number 2 uses crt; var mas: array [1..10] of integer; i,a,k: integer; begin clrscr; writeln('input massive'); for i: =1 to 10 do readln(mas[i]); i: =1; while (mas[i]< > 0) and (i< 10 ) do i: =i+1; k: =1; if i < 10 then begin for a: =i to 10 do k: =k*mas[a]; writeln(k); end else writeln('nulya net'); end.

Системный блок-включающий в себя процессор устройства оперативной памяти .предназначен для обработки данных и работой компьютера.клавиатура применяется для вода информации в память компьютера. монитор предназначен для вывода информации на экран .мышь -одно из основных устройств ввода предназначенное для компьютером.джойстик для компьтером во время игры сканер для вода графических изображений в память компьютера непосредственно с бумажным оригиналом принтер для вывода информации на бумагу