program
HelloWorld;
var b
:double;
var s
:string;
begin
<span> writeln('</span>Введите биты:');
readln(b);
b:= b/8;
writeln('Результат
в байтах:');
writeln(b:15:2);
b:= b/1024;
writeln('Результат
в килобайтах:');
writeln(b:15:2);
end.
Источник иформации в данном случае это поле богатое нектаром, приёмник - пчела, канал связи зрительный, типа пчёлы видят её знаки и движения.
но вообще тут можно по разному рассматривать
//Pascal ABC.NET v3.0 сборка 1111
//"Школьный" вариант, первая блок-схема
Var
a,b,c:integer;
begin
read(a,b,c);
if (a=b) and (b=c) then writeln('=') else
begin;
if a>b then
if a>c then writeln(a);
if b>a then
if b>c then writeln(b);
if c>a then
if c>b then writeln(c);
end;
<span>end.
//Вариант для любителей оккультизма, вторая блок-схема
begin
var se:=ReadArrReal(3);
if se.Sum()/se.Average()=se.Average() then writeln('=') else writeln(se.Max);
end.<span>
Пример ввода:
3
3
3
Пример вывода:
=</span></span>
Вот получилось так, надеюсь понятно.