Для того чтобы система могла свернутся,т.к. если нажимать на кнопку может заедать
Program rost;
var R1,R2,R3,max:integer;
begin
writeln('Введите рост первого человека'); readln(R1);
writeln('Введите рост второго человека'); readln(R2);
writeln('Введите рост третьего человека'); readln(R3);
max:=R1;
if R2>max then
begin
max:=R2;
if R3>max then max:=R3
end
else if R3>max then max:=R3;
writeln('Рост самого высого человека=',max);
end.
16 = 2^4 значит символ веси 4 бит
Вес текста = 384 * 4 бит = 1536.0 бит = 192.0 байт = 0.1875 Кбайт