Быстрая запись и чтение.
Намного большо кол во памяти чем на CD-R или на CD-RW
<em>Вот так)</em>
<em><form autocomplete="off">
</em>
<em> <input type="text" name="test" autocomplete="off">
</em>
<em></form></em>
program raf105;
var
a,b,c,k: real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
if a*b*c <> 0 then k:= sqrt(a*b*c)
else k:= (a+b+c) / 2;
writeln('k = ',k);
end.
<h3>PascalABC</h3>