128 * 24 * 100 = 307 200- символов всего
307200 * 8 = 2 457 600 размер статьи в битах
2 457 600 / 8000 = 307.2 килобайта
Var a,a1,b: Real;
begin
writeln('Введите синус угла а, сторону a, сторону b');
readln(a,a1,b);
writeln('S=',(1/2)*a1*b*sin(a));
writeln('P=',a+b);
end.
Будет состоять из 240 строк(горизонтальных рядов пикселей)
GIF, JPEG, PNG, и WebP-форматы у изображения
Var
n:integer;
begin
Write('Введите четное число: '); Readln(n);
if (n mod 2)=0 then Writeln('Верно!')
else Writeln('Неверно!')
end.
var
n:integer;
begin
Write('Введите любое целое: '); Readln(n);
if n<>13 then Writeln(n) else Writeln(77)
end.