Найти сумму цифр четырехзначного числа program nfff; var ab, s,a, b: integer; begin writeln('найти сумму цифр четырехзначного числа'); write('введите ab= '); readln(ab); b: =ab mod 10; a: =ab div 10; s: =a+b; writeln('s=',s); end.

Program nfff;   var abcd,s,a,b,c,d: integer; begin writeln('найти сумму цифр четырехзначного числа'); write('введите abcd= '); readln(abcd); a: =abcd div 1000; b: =abcd div 100; b: =b mod 10; c: =abcd mod 100; c: =c div 10; d: =abcd mod 10; s: =a+b+c+d; writeln('s=',s); end.

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.

егора-зеленая на 16гб

василий-желтую на 8гб

пети-краснаяна 4гб