Составьте программу, определяющую остаток от деления числа А на число В.…

1. program ostatok; uses crt; var a,b,ost: real; beginwrite ('a='); readln (a); write ('b=); readln (b); ost: =a mod b; write ('ostatok ot delenia A na B raven ',ost); readln; end. 2. program modul; uses crt; var a,b,c,d: real; beginwrite ('a='); readln (a); write ('b=); readln (b); c: =a-b; if c>0 thenbegina: =abs (a+b); b: =abs (a-b) /2); write ('a=',a,'b=',b); endelseb: =abs (a+b); a: =abs (b-a) /2); write ('a=',a,'b=',b); end; readln; end.