Program z1;
var a, b:integer;
begin
write(' Введите возраст Саши - '); read(a);
write(' Введите возраст Mаши - '); read(b);
if a>b then writeln(' Саша старше Маши на ',a-b,' лет');
if a<b then writeln(' Маша старше Саши на ',b-a,' лет');
<span>end.</span>
10*10*(ln(16)/ln(2)) бит пиксель = 400 бит вес / 8 = 50 байт объём (вес) файла.
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 200)
.Max
.Println
end.
Величина, значение которой не меняется в ходе выполнения программы