Скажитее, сколько весит текстовый файл до сжатия и после. тоже самое с графиком.

Все зависит от типа !

Var a,b,r,s1,s2,s3: real; begin writeln('a, b, r: '); readln(a,b,r); s1: =a*a; s2: =b*b*sqrt(3)/4; s3: =pi*r*r; writeln('s1 = ',s1: 4: 2,' s2 = ',s2: 4: 2,' s3 = ',s3: 4: 2); if (s1> s2)and(s1> s3)   then writeln('квадрат имеет максимальную площадь = ',s1: 4: 2)   else if (s2> s1)and(s2> s3)         then writeln('треугольник имеет максимальную площадь = ',s2: 4: 2)         else writeln('круг имеет максимальную площадь = ',s3: 4: 2); end. пример: a, b, r: 5 8 3 s1 = 25.00 s2 = 27.71 s3 = 28.27 круг имеет максимальную площадь = 28.27

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var a,b,r: real;   write('введите сторону квадрата, треугольника и радиус: ');   read(a,b,r);   var s1: =a*a; var s2: =a*a*sqrt(3)/4; var s3: =pi*r*r;   var mx: real; var s: string;   if s1> s2 then begin mx: =s1; s: ='квадрата' end   else begin mx: =s2; s: ='треугольника' end;   if s3> mx then begin mx: =s3; s: ='круга' end;   writeln('максимальная площадь у ',s,' и она равна ',mx) end. пример введите сторону квадрата, треугольника и радиус: 13.5 16.3 3.72 максимальная площадь у квадрата и она равна 182.25