Var x:integer;
begin
write('Введите число: ');
readln(x);
if x mod 6=0 then writeln(sqr(x))
<span>end.</span>
A := 26;
b := 6;
b := a mod b + 4 = 26 mod 6 + 4 = 2 + 4 = 6;
c := a mod b + 1 = 26 mod 6 + 1 = 2 + 1 = 3;
Ответ: 3.
Не знаю может я не так поняла конечно но вот...
Типизированные файлы,текстовые файлы,нетипизированные файлы.