Починить, наложив заплату.
Program abc;
var x, y,z:integer
begin
readln(x,z);
y:=2*x+2*z-(x/z);
writeln(y);
end.
Вроде так, разве что знаки могут быть другие( типо ; в конце и тд)
Var
y:array[1..8]of real;
k,n:integer;
begin
writeln('Исходный массив:');
for k:=1 to 8 do
begin
y[k]:=ln(k)-3*k;
if y[k]<0 then n:=n+1;
write(y[k],' ');
end;
writeln;
writeln('Количество отрицательных: ',n);
writeln('Измененный массив: ');
for k:=1 to 8 do
begin
if y[k]<0 then y[k]:=abs(y[k]);
write(y[k],' ');
end;
end.
80 * 50 * 200 символов (1 символ = 1 байт) 80 * 50 * 200 байт = 80 * 10 Кбайт = 800 Кбайт
var
i,k, p: integer;
begin
p:=1;
for i:=1 to 8 do
begin
Readln (k);
if k div 10 = 0 then p:=p*k
end;
writeln (p);
end.