Екілік кодты пайдаланып, компьютерде терілген кітап мәтінінің ақпараттық көлемін 128 Кбайтқа тең деп алып , мәтіндегі символдар санын есептеңдер

uses crt; var a,b,c,min: integer; beginwriteln('введи три числа: '); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln('наименьшее из этих чисел:   ',min); readln; end.

друг сказал) если не правильно извини, но он вродь хорош в информе

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.