Составьте программу выводящую на экран квадраты чисел от , 1 до 20

program zada4a; var s: integer; beginfor s: =1 to 20 dowriteln(s*s); end.

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

Для сред программирования dos (например, turbo pascal) удалите фигурные скобки, для сред windows (например, pascalabc.net) строки в фигурных скобках удалите полностью. {uses crt; } const   n=80;   digits=['0','1','2','3','4','5','6','7','8','9']; var   s: string[80];   i: integer; begin   {clrscr; }   writeln('введите текст (учитываются только 80 первых символов)');   readln(s);   for i: =1 to n do       if s[i] in digits then write(s[i]);   writeln;   for i: =1 to n do       if not(s[i] in digits) then write(s[i]);   writeln;   {readkey} end. тестовое решение: введите текст (учитываются только 80 первых символов) обь с притоком иртыш 5410км, амур с аргунью 4440км, лена 4400км, енисей 4102км 5410444044004102 обь с притоком иртыш км, амур с аргунью км, лена км, енисей км