Составить блок-схему алгоритма подсчета точек в тексте. признак конца текста «? »

укрытся одеялом и лечь спать,   и пить лекартва и остаться дома

1 кбайт=1024 байта

1 байт=8 бит

81920/8=10240 байт

10240/1024=10 кбайт

var

x: real;

begin

readln(x);

writeln(round(x));

end.

var

a,m,n,k: real;

begin

readln(m,n,k);

if (m+n+k)< (m*n*k) then 

a: =m+n+k

else

a: =m*n*k;

writeln(a);

end.