Не менее должен содержать 256
Program Program1;
var
x,y:real;
begin
write('Введите x: ');
readln(x);
y:=7*SQR(x)-3*x+6;
writeln('y=',y);
end.
"Винчестер" в компьютерном сленге называется.
2^28 бит=268 435 456 бит=33 554 432 байт=32 768 кб=32 Мб
Program bip;
var a,q,n:integer;
begin
writeln('введите четыре числа');
readln(a);
q:=0;
n:=1;
while (n<>4) do
begin
if (a>q) then
q:=a;
readln(a);
n:=n+1; end;
writeln('большее из пяти ',q)
;<span>end.</span>