Объяснение:
readln(k);
if (k>1) and (k<100) then do begin...
else if (k<1) or (k>100) then writeln ('введите число из диапазона 1-100');
Объяснение:
readln(k);
if (k>1) and (k<100) then do begin...
else if (k<1) or (k>100) then writeln ('введите число из диапазона 1-100');