Var a,b: real;
begin
write ('Введите 2 числа');
readln(a,b);
if a<b then writeln (a,'<',b) //минимальное
else if a>b then writeln (a,'>',b) // максимальное
else writeln (a,'=',b) ; // числа равны
end.
В 1 байте - 8 бит это 2 в 3 степени.
(2 в 3 степени) в 1000 степени = 2 в 3000 степени бит
2 мбайта 1024 байт 600 кбайт 0.5гбайт
<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('a=');
var b:=ReadReal('b=');
var c:=ReadReal('c=');
var p:=(a+b+c)/2;
var s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('s=',s:0:1)
end.