Составьте программу для рисования рыбки в pascalabc

2^i = 128

i = 7 бит

800 * 7 = 5600 бит

5600 : 8 = 700 байт

700 : 1024 = 0,684 килобайт.

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.

program distance; var x1, y1, x2, y2, d: real; begin writeln('введите координаты первой точки'); readln(x1, y1); writeln('введите координаты второй точки'); readln(x2, y2); d : = sqrt(sqr(x2 - x1) + sqr(y2 - y1)); writeln('расстояние между точками = ', d: 2: 2); readln; end.

+116=1110100;   -116=0001011